29 августа, 15:34

Паскаль. Написать программу подсчета количества отрицательных чисел среди любых 10 вводимых.

1 программа с использованием while, 2 программа - repeat

+1
Ответы (1)
  1. 29 августа, 16:24
    0
    Program riad;

    var

    a:array [1 ... 10] of integer;

    i, j:byte;

    begin

    writeln ('Vvedite chisla');

    for i:=1 to n do

    readln (a[i]);

    i:=1;

    j:=0;

    repeat

    if a[i]
    i:=i+1;

    until i=10;

    writeln ('kol-vo otricat = ', j);

    readln;

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