Напишите программу, которая в последовательности натуральных...
Категория: Язык программирования: Паскаль
Задание:
Напишите программу, которая в последовательности натуральных чисел выводит сумму всех входящих в последовательность чисел, меньших 50, но больших 10. Программа получает на вход количество чисел в последовательности, а затем сами числа.
Количество чисел не превышает 100. Введенные числа не превышают 300.
Программа должна вывести одно число - сумму всех входящих в последовательность чисел, меньших 50, но больше 10.
Пример работы программы:
Решение:
- Инициализация переменных;
- Ввод количества чисел в последовательности;
- Обнуление переменной суммы;
- Цикл от 1 до количества чисел в последовательности
- Ввод числа последовательности;
- Если число меньше 50 и число больше 10, то добавить его в сумму.
- Вывести значение суммы.
var n, i, a, sum : integer; // инициализация переменных
begin
readln(n); // ввод количества чисел в последовательности
sum := 0; // обнуление переменной суммы
for i := 1 to n do // цикл от 1 до количества чисел в последовательности
begin
readln(a); // ввод числа последовательности
if (a < 50) and (a > 10) then
sum := sum + a; // если число меньше 50 и число больше 10, то добавить его в сумму
end;
writeln (sum); // Вывести значение суммы
end.
Комментарии