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

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

program summ;

var a: array [1 ... 20] of integer;

max, min: integer;

begin

randomize;

max: = - 10;

min: = 10;

for i:integer: = 1 to 20 do

begin

a[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

begin

if a[i] 0 then a[i]: = min else a[i]: = a[i];

write (a[i] : 4);

end;

end.