Составить алгоритм и написать программу, позволяющую найти среднее арифметическое элементов массива, превосходящих некоторое число с. массив задан датчиком случайных чисел на интервале [-44, 35]. размер произвольный. значение с вводится с клавиатуры.
//Внимание! Если программа не работает, обновите версию!
begin
var mas:=ArrRandom(10,-44,35); var c:=readinteger('C=');
Writeln('среднее арифметическое =',mas.Where(t->t>c).Average);
end.
Как учат в школе ->
var mas:Array [1..20] of integer;
i,k,c:integer; l:real;
begin
randomize;
for i:=1 to 20 do
mas[i]:=Random(-44,35);
Write('C='); readln(c);
for i:=1 to 20 do
if mas[i]>c then
k:=k+mas[i];
l:=k/20;
Writeln('среднее арифметическое =',l);
end.