Задать вопрос Регистрация
Помочь другим

  • Найти среднее арифметическое элементов последовательности, превосходящих некоторое число C. Массив задан с клавиатуры. Размер произвольный. Значение  C вводится с клавиатуры.

Ответы 2

  • Готово. Решение задачи в файле. Если у вас есть вопросы, пиши ниже.

    • Автор:

      milesxcj7
    • 5 лет назад
    • 0
  • Мой вариант ответа. program pr; var a:array of integer;i,c,count,total,n:integer; begin write('Размер массива: '); readln(n); setlength(a,n); write('c='); readln(c); writeln(); writeln('Заполняем массив...'); for i:=1 to n do begin write(i,' элемент: '); readln(a[i]); end; for i:=1 to n do begin if a[i]>c then begin count:=count+1; total:=total+a[i]; end end; writeln(); writeln('Среднее арифметическое: ',total/count:0:2); end.

  • Добавить свой ответ

Еще вопросы

Топ пользователей

Войти через Google

 или

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

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

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