Дана линейная таблица а[1: n], n < =50. каждый элемент a[i] с четным индексом заменить значением max(a[1], a[2],…,a[i]), а с нечетным - min(a[1], a[2],…,a[i]).
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]<min then min:=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.