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

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

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