Отыскать среднее арифметическое частей последовательности, превосходящих некое число C.

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

Задать свой вопрос
Vitalij Vedmedenko
размер массива тоже вводится с клавы?
Влад Сквиря
да
Дарина Кубиницкая
для тебя написали теснее 2 решения, при этом 3 денька вспять, и только на данный момент решил ответить на мой вопрос?
2 ответа
Мой вариант ответа. 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]gt;c then begin count:=count+1; total:=total+a[i]; end end; writeln(); writeln('Среднее арифметическое: ',total/count:0:2); end.
Готово. Решение задачки в файле. Если у вас есть вопросы, пиши ниже.
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт