Дана линейная таблица А[1: N], N

Const n=10;
var a:array[1..n] of integer;
max,min,i:integer;
begin
Randomize;
for i:=1 to n do begin
 a[i]:=random(51);
 write(a[i], );
 end;
writeln;
max:=a[1];
min:=a[1];
for i:=1 to n do
 begin
 if a[i]>max then max:=a[i];
 if a[i] if i mod 2 = 1 then a[i]:=min else a[i]:=max;
 end;
for i:=1 to n do write(a[i], );
writeln;
end.

Пример:
31 35 3 5 26 46 9 31 30 11
31 35 3 35 3 46 3 46 3 46