Касаються : Закрити Обрати Розгорнути Перейти Клацнути Переглянути Збільшити Зменшити Ввести Двічі Клацнути Натиснути Встановити Опрацювати і передати
//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.
F=0
a+b*c= 0+1+1=1 т.к перед скобкой знак инверсии то получается 1 меняется на 0 слдовательно ответ 0
<span>0.001
</span><span>Решение должно иметь от 20 до 5000 символов</span>
Добрый день, это краткий формат вывода данных.