Iniciar sesiónCerrar
Correo:
Contraseña:
Entrar
Recordar sesión en este navegador
Iniciar sesiónIniciar sesiónCrear cuentaCrear cuenta
LWP » Foros » Pascal/Turbo Pascal » A Y B

Pascal/Turbo Pascal - A Y B

Volver
Nuevo Tema
<<>>
 
Vista:
sin imagen de perfil

A Y B

Publicado por gimena (4 intervenciones) el 01/06/2015 02:44:14
Nesesito ayuda porfabor.
llenar dos vectores A y B de 45 elementos cada uno , sumar el elemento de uno del vector A con el elemto uno del vector B y asi sucesivamente hasta 45, almacenar el resultado en un vector C, e imprimir el vector resultante.
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder
sin imagen de perfil

A Y B

Publicado por Rene (58 intervenciones) el 01/06/2015 05:55:37
te dejo esa version saludoss
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
var
i,valor:integer;
arr1,arr2,arr3:array[1..45] of integer;
begin
  randomize;
  for i:=1 to 45 do
   begin
     valor:=random(100);
     arr1[i]:=valor;
     valor:=random(100);
     arr2[i]:=valor;
     arr3[i]:=arr1[i]+arr2[i];
     writeln('#',i,' ',arr1[i],'+',arr2[i],'=',arr3[i]);
   end;
 
  readln;
end.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar