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

Вопрос школьника по предмету Информатика

Ввести одномерный массив из 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.