1)заполните массив случайными числами до n. 2)заполните массив нат. рядом чисел - 1,2,3,..n. 3)заполните массив с клавиатуры. 4)среднее арифметическое элементов, которые кратны 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. как-то так) старался некоторые моменты пояснять комментариями