В 1) должно быть var a,b:integer;
// PascalABC.NET 3.0, сборка 1144 от 16.01.2016
begin
ArrRandom(ReadInteger('n='),-15,25).Println
end.
<u><em>Тестовое решение:</em></u>
n= 15
-9 4 2 0 23 -1 9 -9 19 5 8 16 -9 16 12
<h2>PascalABC.NET 3.4.2, сборка 1979 (16.02.2019)</h2>
- begin
- var arr := SeqRandomInteger(ReadInteger('N = ')).ToArray;
- arr.Println;
- Writeln('< 50: ', arr.Where(x -> (x < 50)).Average:3:2);
- Writeln('>= 50: ', arr.Where(x -> (x >= 50)).Average:3:2);
- end.