Предмет: Информатика,
автор: Kkatrina
с клавиатуры ввели 10 чисел положительных и отрицательных.необходимо вывести на экран сумму всех положительных чисел
Ответы
Автор ответа:
0
var i,a,s:integer;
begin
for i:=1 to 10 do begin readln(a); if a>0 then s:=s+a; end;
writeln(s);
end.
Похожие вопросы
Предмет: Физика,
автор: maks20070830
Предмет: Алгебра,
автор: ahun2001ahun
Предмет: Физика,
автор: leoponomarev200615
Предмет: Математика,
автор: Аноним
Предмет: Геометрия,
автор: Alina117