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

Дан массив целых чисел. Требуется найти количество элементов, которые больше и меньше среднего арифметического всех элементов массива

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

var a:array[1..10]of integer;

i,n1,n2:integer;

s:real;

begin

for i:=1 to 10 do begin

readln(a[i]);

s:=s+a[i];

end;

s:=s/10;

for i:=1 to 10 do begin

if a[i]>s then inc(n1);

if a[i]

end;

writeln(bolshe - ,n1, menshe - ,n2);

end.

Оцени ответ