Нужно быстро решить задачу.

[ДастишФантастиш]

10) Дана линейная таблица А[1: N], N <=50. Каждый элемент A[i] с четным индексом заменить значением max(A[1], A[2],…,A[i]), а с нечетным - min(A[1], A[2],…,A[i]).

[ViktorR]

Срочность видимо уже прошла ...
Вот один из вариантов:
1. min := A[1]; max := A[1];
2. Цикл от i := 2 до N
3. Если A[i] < min, то min := A[i]
4. Если A[i] > max, то max := A[i]
5. Если параметр цикла четное число, то
A[i] := max
иначе
A[i] := min;
6. Конец цикла


Как-то так, ...

[newerow1989]

const n=15;
var i,max,min:integer;
    a:array[1..n] of integer;
begin
   Randomize;
   For i:=1 to n do
   begin
      a[i]:=Random(21);
      Write(a[i]:2,'  ');
   end;
   Writeln;
   Writeln;
   max:=a[1];
   min:=a[1];
   For i:=2 to n do
   begin
      If max<a[i] then
         max:=a[i];
      If min>a[i] then
         min:=a[i];
   end;
   For i:=1 to n do
      If i mod 2=0 then
         a[i]:=max else
         a[i]:=min;
   For i:=1 to n do
      Write(a[i]:2,'  ');
   Writeln;
   Readln;
end.