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

Question

Информатика

Машоня

20 ноября, 09:34

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

+3

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