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

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

Ответы и объяснения

2014-03-20T18:19:07+00:00
Готово. Решение задачи в файле. Если у вас есть вопросы, пиши ниже.
2014-03-20T22:55:44+00:00
Мой вариант ответа. 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.