inmultir.pas

来自「This ar the basic programs that i did in」· PAS 代码 · 共 33 行

program inmultirea_z[i];
{sa se calculeze elementele z[i] ale unui vector, obtinute
prin inmultirea elementenor x[i] si y[i] ale altor doi vectori}
var
   x:array[1..100] of integer;
   y:array[1..100] of integer;
   z:array[1..100] of integer;
   p,i,n:integer;
begin
read(n);
p:=1;
for i:=1 to n do
         begin
              write('x[',i,']= ');
              read(x[i]);
              end;
for i:=1 to n do
         begin
              write('y[',i,']= ');
              read(y[i]);
         end;
for i:=1 to n do
         begin
             p:=(x[i]*y[i]);
             write('z[',i,']= ',p);
         end;
end.