Question

Мне нужна помощь: В паскаль
Рассмотрим массив T [1..n] целых чисел, где n <= 20. Напишите программу, используя процедуру, которая будет отображать положительные элементы этого массива.
Спасибо заранее.

Answer 1

PascalABC.NET 3.4.2, сборка 1837 от 11.10.2018

Внимание! Если программа не работает, обновите версию!

procedure ВыводПоложительных(a: array of integer);

begin

 a.Where(t -> t > 0).Println

end;

begin

 var T := ArrRandom(ReadInteger('n='), -50, 50);

 T.Println;

 ВыводПоложительных(T)

end.