Question

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

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.

Answer 2

Вы уверены, что Ваша программа правильно работает?

Answer 3

Предложите свой вариант

Answer 4

Да

Answer 5

Пример вводишь количество элементов 6, а потом по одному 6 чисел вот так: 6 -1 0 -2 -3 2 3

Answer 6

Аа. Понял