Составьте программу ввода элементов массива b[1 ... 6] с клавиатуры и вывода на экран элементов с положительными значениями.

Question

Информатика

Илюша

6 октября, 17:27

Составьте программу ввода элементов массива b[1 ... 6] с клавиатуры и вывода на экран элементов с положительными значениями.

+2

Ответы (1)

Знаете ответ?

Препедигна · Answer 1

Var A:array[1 ... 100] of Integer;

i, N:integer;

begin

Readln (N) ;

For i:=1 to N do

Readln (A[i]) ;

For i:=1 to N do

If A[i]>=0 then

Write (A[i],' ') ;

end.