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

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

Дано натуральное число n, входной поток данных: действительные числа a1,a2,a3, ... , aN. Получите удвоенную сумму всех положительных членов входного потока данных a1,a2,a3, ... , aN. Составьте код программы и блок-схему.

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

Листинг программы

var
  n:integer;
  x,y:real;
begin
  write('n=');
  readln(n);
  for n:=1 to n do begin 
    read(x);
    if x>0 then y:=y+x;
  end;
  writeln(y*2:0:4);
end.

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

В данном коде происходит чтение входного потока данных, где каждый элемент представлен числом (переменная x). Если число положительное (больше нуля), то переменная y увеличивается на это число. После чтения всех элементов входного потока, выводится значение переменной y, умноженное на два. Вот список действий, представленный в виде команд Turbo Pascal:

Выделить переменные n, x, y и объявить их типами integer, real.
Вывести сообщение n=, чтобы пользователь мог ввести значение переменной n.
Считывать значения переменных n, x и y до тех пор, пока n не станет равным нулю.
Проверять, является ли значение переменной x положительным.
Если значение переменной x положительное, увеличивать значение переменной y на это число.
Вывести значение переменной y, умноженное на два.