Вводится число N, а затем n чисел. Выведите среди N чисел только положительные

Pascal abs

Question

Информатика

Вереника

20 августа, 21:43

Вводится число N, а затем n чисел. Выведите среди N чисел только положительные

Pascal abs

+5

Ответы (2)

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

Васс · Answer 1

Var

N, i:integer;

begin

readln (n) ;

for i:=1 to n do

begin

if n>0 then

writeln (i)

end;

end.

Никула · Answer 2

Program Prog;

Uses crt;

var a: array [1 ... 100] of real;

i, N: integer;

begin

clrscr;

Write ('N = ') ;

readln (n) ;

for i:=1 to n do

begin

write ('a[', i,'] = ') ;

readln (a[i]) ;

end;

writeln;

writeln ('Положительные числа: ') ;

for i:=1 to n do

if (a[i]>0) then

writeln ('a[', i,'] = ', a[i]) ;

end.

Вводится число N, а затем n чисел. Выведите среди N чисел только положительныеPascal abs

Вводится число N, а затем n чисел. Выведите среди N чисел только положительные

Pascal abs