Ищете решения задач? Наш сайт поможет решить любую задачу онлайн.
0 голосов

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

от (12 баллов) в категории Информатика
0

размер массива тоже вводится с клавы?

0

да

0

тебе написали уже 2 решения, причем 3 дня назад, и только сейчас решил ответить на мой вопрос?

2 Ответы

0 голосов
Готово. Решение задачи в файле. Если у вас есть вопросы, пиши ниже.
от Начинающий (812 баллов) 2 3
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.

от Одаренный (1.0k баллов) 2 2
...