Question

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

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

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

Answer 1

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]<b[i] then c[i]:=a[i] else c[i]:=b[i];
 write(c[i]:4);
 end;
end.