Надо написать программу: ввести 10 любых чисел и посчитать сколько из этих чисел положительных

Question

Информатика

Савелла

10 августа, 23:01

Надо написать программу: ввести 10 любых чисел и посчитать сколько из этих чисел положительных

+2

Ответы (1)

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

Африкан · Answer 1

Program suma;

const n = 10;

Var a:array [1 ... n] of integer;

i, sum:integer;

begin

sum:=0;

for i:=1 to n do read (a[i]) ;

for i:=1 to n do if a[i] < 0 then Inc (sum) ;

write (sum) ;

end.