Всё кроме пятого. Заранее

{PascalABC}

Program Begenjov1997;

const

 n = 30; {Количество элементов массива}

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

var

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

 i, sum: 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

   begin

     a[i]:=random(m+1);

   end;

{Ищем максимальную сумму двух соседних элементов}

 sum:=a[1]+a[2];

 for i:=2 to n-1 do

     if (a[i]+a[i+1]>sum) then sum:=a[i]+a[i+1];

{Заменяем элементы, кратные 3, наденной суммой}

 for i:=1 to n do

     if (a[i] mod 3 = 0) then  a[i]:=sum;

{Вывод}

 writeln('Массив А в обратном порядке:');

 for i:=0 to n-1 do writeln(a[n-i],'  ');

 writeln();

 writeln('Максимальная сумма двух соседних элементов равна ',sum);

end.

{PascalABC}

Program Begenjov1997;

const

 n = 200; {Количество элементов массива}

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

var

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

 i, chet,nech: 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);

{Ищем максимальный чётный и максимальный нечётный элементы}

 chet:=a[1];nech:=a[1];

 for i:=2 to n do

   begin

     if (a[i]>chet) and (a[i] mod 2 = 0) then chet:=a[i];

     if (a[i]>nech) and (a[i] mod 2 <> 0) then nech:=a[i];

   end;

{сравниваем чёт и нечет, заменяем нужное на нули и выводим}

 writeln;

 for i:=1 to n do

   begin

     if (chet>nech) and (a[i] mod 2 = 0) then a[i]:=0;

     if (nech>chet) and (a[i] mod 2 <> 0) then a[i]:=0;

     writeln(a[i]:4);

   end;  

end.