Получить удвоенную сумму всех положительных членов последовательности a [1], ... a [n]. - Pascal
Формулировка задачи:
дано натуральное число n, действительные числа a [1], ..., a [n]. Получить удвоенную сумму всех положительных членов последовательности a [1], ... a [n].
Решение задачи: «Получить удвоенную сумму всех положительных членов последовательности a [1], ... a [n].»
textual
Листинг программы
var n, i: 1..100; s, t: double; begin readln(n); s := 0; for i := 1 to n do begin readln(t); if t > 0 then s := s + t; end; s := s * 2; writeln(s:10:10); readln; end.
Объяснение кода листинга программы
- Объявление переменных: — n, i: 1..100 - переменная n содержит количество элементов в последовательности, а переменная i используется как счётчик в цикле; — s, t: double - переменная s будет хранить сумму положительных членов последовательности, а переменная t — значение каждого члена последовательности.
- Ввод количества элементов последовательности с помощью функции readln(n).
- Инициализация переменной s значением 0.
- Цикл for i := 1 to n выполняет следующие действия: — Чтение значения t с помощью функции readln(t). — Проверка условия if t > 0, если оно истинно, то значение t прибавляется к переменной s.
- Удвоение значения переменной s с помощью оператора *= 2.
- Вывод значения переменной s с помощью функции writeln(s:10:10).
- Ввод символа для завершения работы программы с помощью функции readln;.