Question

Задать массив генератором случайных чисел в диапазоне [-20;10] найти максимальный элемент массива и вывести на экран все нечетные элементы.

Answer 1

PascalABC.NET 3.3.5, сборка 1640 от 17.03.2018
Внимание! Если программа не работает, обновите версию!

begin
  var a:=ArrRandom(ReadInteger('n='),-20,10); a.Println;
  Writeln('max=',a.Max);
  Print('Нечетные элементы:'); a.Where(t->t.IsOdd).Println
end.