Составить программу для решения следующей задачи: Дан массив целых чисел, заполненный случайными числами в диапазоне [-100, 100]. Замените все отрицательные элементы максимальным. Выведите на экран исходный и измененный массивы.

var

i, max:integer;

ar:array[0 ... 200] of integer;

begin

randomize;

max:=0;

for i:=1 to 200 do begin

ar[i]:=random (200+1) - 100;

if (ar[i] > max) then max:=ar[i];

if (i mod 20=0) then writeln (ar[i]) else write (ar[i],' ') ;

end;

writeln () ;

for i:=1 to 200 do begin

if (ar[i] < 0) then ar[i]:=max;

if (i mod 20=0) then writeln (ar[i]) else write (ar[i],' ') ;

end;

end.