Опубликовано 08.06.2017 по предмету Информатика от Гость >> <<

С клавиатуры ввели 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.