1)заполните массив случайными числами до n.2)заполните массив нат. рядом чисел -

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.
как-то так) старался некоторые моменты объяснять комментами