Pascal/Turbo Pascal - A Y B

   
Vista:

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

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