Question

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

Answer 1

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

56898525a83f699dc0ad776bbb4a3f5e.pas

Answer 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]>c then begin count:=count+1; total:=total+a[i]; end end; writeln(); writeln('Среднее арифметическое: ',total/count:0:2); end.

56898525a83f699dc0ad776bbb4a3f5e.pas