Составить программу для решения следующей задачи: Дан массив целых чисел, заполненный случайными числами в диапазоне [-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.

Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.