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

Question

Информатика

Эмиля

10 марта, 00:36

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

+4

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