Логотип
Войти
Информатика • 8 класс
39

Подсчёт количества элементов массива и их суммы (Паскаль)

  • Пример. Составьте программу, которая будет считать сумму введённых с клавиатуры цифр до тех пор, пока не будет встречено отрицательное число.

 

  • Решение.

    Var x, sum: integer;

    Begin

    sum := 0;

    writeln(Введите числа:);

    readln (x);

    while (x 0) do

    begin

    sum := sum + x;

    readln(x)

    end;

    writeln (Сумма введённых чисел равна , sum)

    End.

Было полезно?

Рекомендуем

Вы учитель или ученик?
Познакомьтесь с нашим образовательным онлайн-сервисом с тысячами интерактивных работ
Учителю
Удобно проводить уроки в классе, назначать работы на дом и анализировать результаты всего класса или конкретных учеников
Ученику
Самостоятельно изучать новые и повторять пройденные темы, готовиться по индивидуальной траектории и оценивать результаты на наглядных графиках
Зарегистрироваться в «Облаке знаний»