15.В заданном массиве вещественных чисел определить количество элементов меньших среднего арифметического значения.

Uses crt;
const N=30;
var a:array [1..N] of integer;
    i,sum,k:integer;
    sr:real;
begin
     for i:=1 to N do
         begin
         readln(a[i]);
         sum:=sum+a[i];
         end;
     sr:=sum/N;
     for i:=1 to N do
         if a[i]     writeln(k);
end.

Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.