Question

Массивы В1(10) и В2(10) заполнены случайными числами. Сформировать третий массив, каждый элемент которого равен большему из соответствующих элементов данного массива. Вывести три массива.

Answer 1

Var b1,b2,b3:array[1..10] of integer;
i:integer;
begin
for i:=1 to 10 do begin
b1[i]:=random(-50,50);
b2[i]:=random(-50,50);
b3[i]:=max(b1[i],b2[i]);
end;
write('B1 Mass   ');
for i:=1 to 10 do
write(b1[i]:3,' ');
writeln;
write('B2 Mass   ');
for i:=1 to 10 do
write(b2[i]:3,' ');
writeln;
write('B3 Mass   ');
for i:=1 to 10 do
write(b3[i]:3,' ');
end.