Получить удвоенную сумму всех положительных членов последовательности - 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;
Объяснение кода листинга программы
- В начале объявляются переменные: sum - сумма, i - счётчик, k - число.
- Переменная sum инициализируется значением 0.
- Запускается цикл for, который выполняется от 1 до n (n - номер очередного элемента).
- Внутри цикла считывается значение числа k с помощью функции readln.
- Проверяется условие: если k больше 0, то к сумме прибавляется удвоенное значение k.
- После завершения цикла выводится значение суммы.
- Код завершается.