Всего чисел 21, т.к. Я считаю, что 0 тоже входит в этот диапазон.
Это скрытое меню, которое появляется при нажатии правой кнопки мыши.
(начало)
/ввод a,b,c/
/вывод max(min(a;b),min(b;c),min(a;c))/
(конец)
Я думаю что нет
Ответ:нет
//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.