Ввести одномерный массив из 5 элементов и вывести на экран его положительные элементы.

Pascal abc

Я сделала ввод массива с клавиатуры, но ты можешь сделать его рандомными числами

const N=5;

var A: array [1 ... N] of real;

i: integer;

begin

writeln ('Введите массив') ;

for i:=1 to N do

readln (A[i]) ;

writeln ('Положительные элементы:') ;

for i:=1 to N do

if A[i]>0 then

writeln ('A[', i, ']=', A[i]) ;

end.