Опубликовано 08.06.2017 по предмету Информатика от Гость >> <<

Заданы массивы А и В из 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.