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

Question

Информатика

Люня

13 января, 02:53

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

+3

Ответы (1)

~~Знаете ответ на вопрос?~~

Евстафия · Answer 1

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.