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

Question

Информатика

Ермиония

23 октября, 02:34

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

+1

Ответы (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.