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

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

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

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

textual
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.

13   голосов, оценка 3.923 из 5


СОХРАНИТЬ ССЫЛКУ
Похожие ответы