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