Одномерные массивы

[ilnar51]

Задан одномерный массив из N чисел.Найти количество элементов массива,больших среднего арифметического всех его элементов

[unbanned]

for i:=1 to n do
s:=s+m[i];
s:=s/n;
for i:=1 to n do
if m[i]>s then inc(k);

[Sarmat)]

uses crt;
const n=10;
type mas=array [1..n] of integer;
var a:mas;
i,k,d:integer;
s:real;
begin
randomize;
clrscr;
d:=0;
k:=0;
writeln ('Введите элементы массива:');
for i:=1 to n do
begin
readln (a[i]);
d:=d+a[i];
end;
s:=d/n;
writeln;
writeln ('Массив:');
for i:=1 to n do
begin
write (a[i]:3);
if a[i]>s then k:=k+1;
end;
writeln;
writeln ('Количество элементов: ',k);
repeat until keypressed;
end.

Вместо n запиши нужный тебе размер массива

From Stilet: Что код оформить по правилам религия не позволяет?

[ilnar51]

error 207:Invalid floating point operation
че значит?=)

[Stilet]

Значит что числа вещественные неверно обрабатываешь.
На какой строке падает?

[ilnar51]

прост когда run нажимаешь зеленая линия появляется и там пишется=)