Дана таблица а[1: 100] найти количество элементов - вопрос №1100104600 от 4EJLOBEK228 16.11.2021 10:15

Question

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

4EJLOBEK228 · 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.