В компьютер вводятся 10 любых целых чисел. Нужно подсчитать и один раз напечатать, сколько среди них положительных?

Question

Информатика

Владислава

19 апреля, 04:36

В компьютер вводятся 10 любых целых чисел. Нужно подсчитать и один раз напечатать, сколько среди них положительных?

+5

Ответы (1)

Знаете ответ на вопрос?

Бронислав · Answer 1

Var A, i, k:integer;

Begin

Write ('Введите 10 целых чисел: ') ;

k:=0;

For i: = 1 to 10 do

Begin

Read (A) ;

if A>0 then k:=k+1

End;

Write ('Количество положительных: ', k) ;

End.