Задать вопрос
9 февраля, 20:30

Подсчитать количество отрицательных чисел из 10, введенных с клавиатуры

+2
Ответы (1)
  1. 9 февраля, 22:45
    0
    Uses crt;

    var

    a:real;

    k, i:integer;

    begin

    for i:=1 to 10 do begin

    readln (a);

    if a<0 then

    k:=k+1;

    end;

    write (k)

    end.
Знаешь ответ?
Не уверен в ответе?
Найди верный ответ на вопрос ✅ «Подсчитать количество отрицательных чисел из 10, введенных с клавиатуры ...» по предмету 📙 Информатика, а если ответа нет или никто не дал верного ответа, то воспользуйся поиском и попробуй найти ответ среди похожих вопросов.
Искать другие ответы