Опубликовано 11.06.2017 по предмету Информатика от Гость >> <<

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

Ответ оставил Гость

Var a:array [1..100] of integer;
s,i,k,n:integer;
 sr:real;
begin
writeln(n=);
readln(n);
writeln(vvedite massiv=);
    for i := 1 to n do   
  readln(a[i]);   
s:=0;
k:=0;
   for i := 1 to n do
 begin
 s:=s+a[i];
sr:=s/n;  
  end;
for i := 1 to n do
if a[i]>sr then inc(k);
writeln(sr=,sr, k=,k);
readln;
end.