На паскале. Найдите среднее арифметическое элементов одномерного массива, состоящего из 10 чисел, которые превышают по велечине число d. Число d и остальные элементы массива вводятся с клавиатуры

var i,k,s,d:integer;

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

begin

 writeln('введите массив');

 for i:=1 to 10 do

   readln(a[i]);

 write('d= ');

 readln(d);

 for i:=1 to 10 do

 if a[i]>d then

 begin

   k:=k+1;

   s:=s+a[i];

 end;

 writeln(s/k);

end.

Объяснение: