Получить удвоенную сумму всех положительных членов последовательности - Pascal

Узнай цену своей работы

Формулировка задачи:

Завтро зачет а я не знаю как решить эту задачу, помогите пожалуйста очень срочно надо!!! Даны натуральное число n и действительные a1,…,an, где n<=3000. Получить удвоенную сумму всех положительных членов последовательности a1,…,an.
надо через процедуры решить...

Решение задачи: «Получить удвоенную сумму всех положительных членов последовательности»

textual
Листинг программы
procedure summa(n: integer);
var
  sum: real;
  i: integer;
  k: real;
begin
  sum := 0;
  for i := 1 to n do 
  begin
    readln(k);
    if k > 0 then
      sum := sum + k * 2; //если удвоенная сумма sun:=sum+k;
  end;
  writeln(sum);//sum*2
end;

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

  1. В начале объявляются переменные: sum - сумма, i - счётчик, k - число.
  2. Переменная sum инициализируется значением 0.
  3. Запускается цикл for, который выполняется от 1 до n (n - номер очередного элемента).
  4. Внутри цикла считывается значение числа k с помощью функции readln.
  5. Проверяется условие: если k больше 0, то к сумме прибавляется удвоенное значение k.
  6. После завершения цикла выводится значение суммы.
  7. Код завершается.

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

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