Получить удвоенную сумму всех положительных членов последовательности 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.

Объяснение кода листинга программы

  1. Объявление переменных: — n, i: 1..100 - переменная n содержит количество элементов в последовательности, а переменная i используется как счётчик в цикле; — s, t: double - переменная s будет хранить сумму положительных членов последовательности, а переменная t — значение каждого члена последовательности.
  2. Ввод количества элементов последовательности с помощью функции readln(n).
  3. Инициализация переменной s значением 0.
  4. Цикл for i := 1 to n выполняет следующие действия: — Чтение значения t с помощью функции readln(t). — Проверка условия if t > 0, если оно истинно, то значение t прибавляется к переменной s.
  5. Удвоение значения переменной s с помощью оператора *= 2.
  6. Вывод значения переменной s с помощью функции writeln(s:10:10).
  7. Ввод символа для завершения работы программы с помощью функции readln;.

Оцени полезность:

14   голосов , оценка 3.714 из 5
Похожие ответы