Дан массив A из N элементов. Вывести все элементы, значение которых превосходит среднего...

Question

Дан массив A из N элементов. Вывести все элементы, значение которых превосходит среднего арифметического элементов массива.

Язык паскаль.

Answer 1

Program enot;
const n= 5;
Var a: array [1..n] of integer;
c:real;
i,max,s:integer;
begin
for i:= 1 to n do begin
read (a[i]);
s:=s+a[i];
end;
c:=s/n;
for i:= 1 to n do
if a[i]>c then write(a[i], '; ');
end.