procedure ВыводПоложительных(a: array of integer);
begin
a.Where(t -> t > 0).Println
end;
var T := ArrRandom(ReadInteger('n='), -50, 50);
T.Println;
ВыводПоложительных(T)
end.
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.