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

Question

Информатика

Надиша

5 августа, 18:24

С клавиатуры вводится числа 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.