Дан целочисленный массив из 30 частей. Элементы массива могут принимать целые

Program Begenjov1997;

const

 n = 30; Количество частей массива

 m = 10000; Максимально вероятное значение элемента

var

 a:array[1..n] of integer;

 i, min, max: integer;

 s:string;

begin

 s:='**** -=Alphaeus=- ****';

 for i:=1 to 22 do begin write(s[i]); sleep(60) end;

наполняем массив случайными числами

 writeln; randomize;

 for i:=1 to n do a[i]:=random(m+1);

Ищем максимальный и малый элементы

 min:=a[1]; max:=a[1];

 for i:=1 to n do

   begin

     if (a[i]gt;max) then max:=a[i];

     if (a[i]lt;min) then min:=a[i];

   end;

Заменяем минимальные элементы на наибольшие

 for i:=1 to n do

   if (a[i] = min) then a[i]:=max;

Вывод

 writeln('Массив:');

 for i:=1 to n do writeln(a[i]);

end.