С клавиатуры вводится числа 10 подсчитать количество положительных

Question

Информатика

Эмиля

6 мая, 20:14

С клавиатуры вводится числа 10 подсчитать количество положительных

+3

Ответы (1)

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

Михайлушка · Answer 1

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

k, x:integer;

begin

x:=0;

writeln ('Введите числа') ;

for k:=1 to 10 do

begin

readln (a[k]) ;

if a[k]>0 then x:=x+1;

end;

writeln ('Количество положительных цифр равняется ', x) ;

end.