В массиве из 20 случайных цифр из диапозона -10+10заменить все отрицательные числа на максимальные все положительные

Ноль - ни положительное, ни отрицательное число, поэтому элементы массива, которые имеют нулевое значение не заменяются.

program summ;var a: array [1..20] of integer;max, min: integer;

beginrandomize;max:= -10;min:= 10;

for i:integer:= 1 to 20 do begina[i]:= random(21)-10;if a[i] < min then min:= a[i];if a[i] > max then max:= a[i];write(a[i] : 4)end;

writeln();

for i: integer:= 1 to 20 do beginif a[i] < 0 then a[i]:= max else if a[i] > 0 then a[i]:= min else a[i]:= a[i]; write(a[i] : 4);end;

end.