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

Question

Информатика

Текуса

24 марта, 05:18

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

+1

Ответы (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.