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

Pascal abs

Question

Информатика

Леонилла

26 июня, 08:19

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

Pascal abs

+3

Ответы (2)

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

Эладка · Answer 1

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.

Феоза · Answer 2

Var

N, i:integer;

begin

readln (n) ;

for i:=1 to n do

begin

if n>0 then

writeln (i)

end;

end.

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

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

Pascal abs