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

Question

Информатика

Святополк

6 сентября, 22:52

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

+2

Ответы (1)

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

Витюша · 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.