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

Question

Информатика

Леруха

23 января, 11:53

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

+3

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