Программа:
Pascal:
var
arr: array[1..20] of integer;
i: integer;
begin
randomize;
for i := 1 to 20 do arr[i] := random((-100), 100);
writeln(arr);
for i := 1 to 20 do if arr[i] > 0 then write(arr[i], ' ') ;
end.
