Дана таблица А[1:100] найти количество элементов этой таблицы, больших среднего арифметического всех ее элементов

Question

Дана таблица А[1:100] найти количество элементов этой таблицы, больших среднего арифметического всех ее элементов

Экономика

Гость

Ответ(ы) на вопрос:

Accepted Answer

var a:array[1..100] of integer; s,i:integer ; sr:real; Begin {vvod massiva a} for i:= 1 to 100 do sr:=sr+a[i]; sr:= sr/100; for i:= 1 to 100 do if a[i]>sr then s:=s+1; writeln(s); End.