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