<span>выделить его, а затем переместить при одновременно нажатых левой кнопке и клавише ctrl</span>
<span>для вычислительного эксперимента - графики изменений
</span>
<span>для компьютерного управления - схемы управления, блок схемы
</span>
<span>для имитационной модели - изображение модели напрмер</span>
//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.