Заданы массивы А и В из N чисел (N=10) случайным образом.

Сформировать новый массив, каждый элемент которого равен

минимальному из соответствующих элементов этих массивов

var a:array[1 ... 10] of integer;

b:array[1 ... 10] of integer;

c:array[1 ... 10] of integer;

i:integer;

begin

cls;

for i:=1 to 10 do

begin

a[i]:=random (50) ;

write (a[i]:4) ;

end;

writeln;

for i:=1 to 10 do

begin

b[i]:=random (50) ;

write (b[i]:4) ;

end;

writeln;

for i:=1 to 10 do

begin

if a[i]
write (c[i]:4) ;

end;

end.