Дана таблица а[1: 100] найти количество элементов - вопрос №1042001100 от Cerega67 29.06.2020 18:21

Question

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

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