3 марта, 14:58

Дано 20 чисел. Найти сумму чисел, которые меньше числа 5.

(Паскаль)

0
Ответы (1)
  1. 3 марта, 15:11
    0
    Program pr1;

    uses crt;

    var

    n:byte; / / Размерность массива

    i:byte; / / Счетчик массива

    a:array[1 ... 20] of real; / / Массива чисел

    S:real; / / Сумма чисел

    Begin

    clrscr;

    write ('Введите размерность массива: ');

    readln (n);

    writeln ('Введите ', n,' элементов');

    / / Блок ввода

    for i:=1 to n do

    readln (a[i]);

    / / Блок вывода

    writeln ('Исходный массив');

    for i:=1 to n do

    write (a[i]:6:1,' ');

    writeln;

    readln;

    / / Блок инициализации

    S:=0;

    for i:=1 to n do

    if (a[i]<5) then

    S:=S+a[i];

    readln;

    writeln ('S = ', S);

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