// PascalABC.NET 3.0, сборка 1150 от 22.01.2016
begin
Writeln('Ср.знач.=',
ArrRandom(ReadInteger('n='),1,50).Println.Average)
end.
<u><em>Тестовое решение:</em></u>
n= 15
46 24 35 34 48 18 34 7 12 5 22 14 2 4 43
Ср.знач.=23.2
<u>PascalABC.NET 3.3.5, сборка 1659 от 09.04.2018</u>
<u>Внимание! Если программа не работает, обновите версию!</u>
begin
var (x,y):=ReadReal2;
var p:=(x>-4) and (x<5) and (y>-3) and (y<0) or
(y>0) and (y<4) and (Abs(x)<2);
if p then Writeln('Принадлежит')
else Writeln('Не принадлежит')
end.
Множество улиц
Множество городов
Множество о проспектах
Множество площадей