Question

задать массив из 20 элементов случайным образом от -100 до 100 вывести его на экран и найти те элементы котрые положительные​

Answer 1

Программа:

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.