Дана таблица а[1: 100] найти количество элементов - вопрос №1100104768 от vvvvcrrrq 11.03.2022 06:02

Question

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

vvvvcrrrq · 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.