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

Pascal abc

Question

Информатика

Альба

16 декабря, 04:18

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

Pascal abc

+1

Ответы (1)

Знаете ответ на вопрос?

Аглаида · Answer 1

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

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.

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

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

Pascal abc