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

Question

Информатика

Анфиса

16 апреля, 14:35

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

+4

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