Нельзя ли как-то эту часть программы записать в одном цикле? не получается, чтобы выводилось правильно?
for i:=1 to n do begin a[i]:=random(21)-10; write(a[i]:6); end; writeln;
for i:=1 to n do begin b[i]:=random(21)-10; write(b[i]:6); end;
for i:=1 to n do begin if a[i]>b[i] then c[i]:=a[i] else c[i]:=b[i];end;writeln;
for i:=1 to n do begin write(c[i]:6); end;
Обновление
Полный листинг:
const K=100;
var
a,b,c:array[1..K] of integer;
n,i:integer;
begin
writeln('введи размерности массивов');
readln(n);
randomize;
for i:=1 to n do begin a[i]:=random(21)-10; write(a[i]:6); end; writeln;
for i:=1 to n do begin b[i]:=random(21)-10; write(b[i]:6); end;
for i:=1 to n do begin if a[i]>b[i] then c[i]:=a[i] else c[i]:=b[i];end;writeln;
for i:=1 to n do begin write(c[i]:6); end;
end.