в массиве А [n] отрицательные элементы заменить на значение максимального элемента, нули – на значение минимального элемента.

program a1;
const n=10;
var a:array [1..n] of integer;
i,max,min:integer;
begin
randomize;
a[1]:=random(15)-10;
max:=a[1];
min:=a[1];
writeln('Изначальный массив ');
write(a[1]:3);
for i:=2 to n do
   begin
   a[i]:=random(15)-10;
   if min>a[i] then min:=a[i];
   if max<a[i] then max:=a[i];
   write(a[i]:3);
   end;
   writeln;
   writeln('Минимальный элемент - ',min,', а максимальный элемент - ',max);
writeln('Полученный массив ');
for i:=1 to n do
   begin
   if a[i]=0 then  a[i]:=min else if a[i]<0 then a[i]:=max;
   write(a[i]:3);
   end;
   readln;
end.

program a1;
const n=10;
var a:array [1..n] of integer;
i,max,min:integer;
begin
randomize;
writeln('Изначальный массив ');
for i:=1 to n do
   begin
   a[i]:=random(15)-10;
   write(a[i]:3);
   end;
   writeln;
   max:=a[1];
   min:=a[1];
for i:=1 to n do
   begin
   if min>a[i] then min:=a[i];
   if max<a[i] then max:=a[i];
   end;
   writeln('Минимальный элемент - ',min,', а максимальный элемент - ',max);
writeln('Полученный массив ');
for i:=1 to n do
   begin
   if a[i]=0 then  a[i]:=min else if a[i]<0 then a[i]:=max;
   write(a[i]:3);
   end;
   readln;
end.