Написать программу, которая заполняет два одномерных массива случайными числами. Получить третий массив, элементы которого равны произведению соответствующих элементов исходных массивов. Pascal ABC

Const

n=15; { длина массива }

type

tm=array[1 ... n] of integer;

var

i:byte;

a, b, c:tm;

begin

randomize;

for i:=1 to n do

begin

a[i]:=random (101-50) ;

b[i]:=random (101-50) ;

c[i]:=a[i]*b[i];

Write (a[i],' ')

end;

Writeln;

for i:=1 to n do

begin

Write (b[i],' ')

end;

Writeln;

for i:=1 to n do

begin

Write (c[i],' ')

end;

Writeln

end.