Одномерный целочисленный массив из 7 ячеек заполнен случайными числами в диапазоне от 0 до 15, выводится на экран в столбик с указанием индекса элемента.

Найти среднее арифметическое тех элементов массива, которые больше 3 и меньше 7. Ответ выводится на экран


СОСТАВИТЬ ПРОГРАММУ НА ЯЗЫКЕ PASCAL!

program massive;

const

 n=7;

var

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

 i,k,s: integer;

 m:real;

begin

 randomize;

 s:=0;

 k:=0;

 for i:=1 to n do

 begin

   a[i]:=random(15);

   write(a[i],' ');

 end;

 writeln;  

 for i:=1 to n do

   if (a[i]>3) and (a[i]<7) then

     begin  

       k:=k+1;

       s:=s+a[i];

     end;

 m:=s/k;

 writeln('Среднее арифметическое: ',m:0:2);    

end.