Задать вопрос
29 августа, 15:34

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

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

+3
Ответы (1)
  1. 29 августа, 16:24
    -1
    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 ...» по предмету 📙 Информатика, а если ответа нет или никто не дал верного ответа, то воспользуйся поиском и попробуй найти ответ среди похожих вопросов.
Искать другие ответы
Помоги с ответом по информатике
Даны три числа, если они расположены по возрастанию, то увеличить каждое в три раза, если по убыванию, то уменьшить каждое в три раза, иначе - найти их сумму.
Нет ответа
Была произведена серия из 18 подбрасываний монетки. В результате каждого подбрасывания монетка может выпасть орлом или решкой с равной вероятностью.
Нет ответа
Найдите минимальное основание позиционной системы счисления X, такое, что если число 37X, записанное в этой системе счисления, перевести в десятичную систему счисления - итог будет равен результату возведения числа 2 в некоторую целую степень.
Нет ответа
3. Выполнить сложение в двоичной системе счисления: а) 11+1 б) 101+11 в) 11011+111 г) 1010+10
Нет ответа
переведите в десятичную систему следующие двоичные числа: 101; 11101; 101010; 100011; 10110111011. переведите в двоичную систему счисления следующие десятичные числа: 2; 7; 17; 68; 315; 765; 2047.
Нет ответа