С клавиатуры ввели 10 чисел положительных и отрицательных. необходимо вывести на экран сумму всех положительных чисел

Question

Информатика

Кристинья

20 августа, 23:12

С клавиатуры ввели 10 чисел положительных и отрицательных. необходимо вывести на экран сумму всех положительных чисел

+1

Ответы (1)

Знаете ответ на вопрос?

Эмилиана · Answer 1

Program Summa;

Uses CRT;

var a, sum:integer;

Begin

Write ('Введите 10 положительных и 10 отрицательных чисел') ;

Read (a) ;

sum:=0;

if a > 0 then sum:=sum+a;

writeln ('sum=', a)

end.