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

Illya227 Illya227    1   07.03.2019 21:50    2

Ответы
Ksuha1304 Ksuha1304  06.06.2020 22:16

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.

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика