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

Ответы 1

  • 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.

    • Автор:

      mollie61
    • 6 лет назад
    • 0
  • Добавить свой ответ

Еще вопросы

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years