Разработать алгоритм нахождения суммы положительных чисел из N введен если таких нет то вывести сообщ об этом(Pascal)
Разработать алгоритм нахождения суммы положительных чисел из N введен если таких нет то вывести сообщ об этом(Pascal)
Гость
Ответ(ы) на вопрос:
Гость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.
Не нашли ответ?
Похожие вопросы