С ДЕҢГЕЙІ 1. Массивтегі бірінші және соңғы санның орындарын ауыстырыңдар.
2. Массивке тағы бір сан қосыңдар.​

​

Const
  s0=100000; { первоначальная сумма в копейках }
  p=0.02; { величина, равная 1/100 от ежемесячного процента }
var
  s,sp:longint;
  mes:integer;
begin
  { все расчеты ведем в копейках }
  mes:=0; s:=s0;
  while sp<=30*100 do
    begin mes:=mes+1; sp:=Round(s*p); s:=s+sp end;
  Writeln('Месяц ',mes,', сумма процента ',sp/100:0:2,' > 30');
  mes:=0; s:=s0;
  while s<=1200*100 do begin mes:=mes+1; s:=s+Round(s*p) end;
  Writeln('Месяц ',mes,', сумма вклада ',s/100:0:2,
      ' > 1200');
end.

Результат выполнения программы:
Месяц 22, сумма процента 30.31 > 30
Месяц 10, сумма вклада 1218.98 > 1200

Const n=10;
var i,s,k:integer;
      a:array [1..n] of integer;
begin
 for i:=1 to n do begin
                           // 1) //случайные числа
                            a[i]:=random(20); //используя функцию randomize генерируем случайные числа
                            write(a[i],' ');
                           //2)натур. ряд чисел
                            a[i]:=i;    //присваиваем элементу массива его номер 
                            write(a[i],' ');
                           //3)заполнить с клав.
                            write('введите ',i,' число массива ');
                            readln(a[i]); 
                           //4) сред. ариф. кратн 2
                            a[i]:=random(20);    //создадим рандомный массив 
                            write(a[i],' ');    // выведем на экран
                            if a[i] mod 2 = 0 then begin //если кратно 2, то
                                                               s:=s+a[i];    //считаем сумму всех чисел кратных 2
                                                               k:=k+1;      // считаем кол-во таких чисел
                                                              end; 
                          end;
//2 стоки ниже относятся только к 4 пункту
  writeln;
  writeln('среднее арифметическое элементов, кратных 2 = ',s/k);
//ниже относится к ручному вводу
 writeln;
 for i:=1 to n do write(a[i],' ');
end.
как-то так) старался некоторые моменты пояснять комментариями