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

Question

Информатика

Федяня

17 августа, 16:13

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

+5

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