Разработать алгоритм нахождения суммы положительных чисел из N введен если таких нет то вывести сообщ об этом (Pascal)

Question

Информатика

Туся

7 марта, 14:17

Разработать алгоритм нахождения суммы положительных чисел из N введен если таких нет то вывести сообщ об этом (Pascal)

+2

Ответы (1)

Знаете ответ?

Моря · Answer 1

Var

N:integer;

A, S:real;

Begin

WriteLn ('Введите N') ;

ReadLn (N) ;

WriteLn ('Введите числа') ;

S:=0;

For N:=1 to N do

Begin

Read (A) ;

if A>0 then S:=S+A;

End;

if S=0 then Write ('Положительных чисел нет')

else Write ('S = ', S)

End.