Составить алгоритм и написать программу, позволяющую найти среднее арифметическое...

Question

Составить алгоритм и написать программу, позволяющую найти среднее арифметическое элементов массива, превосходящих некоторое число С. Массив задан датчиком случайных чисел на интервале [-44, 35]. Размер произвольный. Значение С вводится с клавиатуры.

Comments

На каком языке ????

---

Pascal

Answer 1

//PascalABC.NET 3.3,сборка 1611 от 06.01.2018

//Внимание! Если программа не работает, обновите версию!

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.

---

---

---