20 ноября, 09:34

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

+1
Ответы (1)
  1. 20 ноября, 10:17
    0
    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.
Знаешь ответ?
Не уверен в ответе?
Найди верный ответ на вопрос ✅ «В компьютер вводятся 10 любых целых чисел. Нужно подсчитать и один раз напечатать, сколько среди них положительных? ...» по предмету 📙 Информатика, а если ответа нет или никто не дал верного ответа, то воспользуйся поиском и попробуй найти ответ среди похожих вопросов.
Искать другие ответы