с клавиатуры ввели 10 чисел положительных и ...
с клавиатуры ввели 10 чисел положительных и отрицательных.необходимо вывести на экран сумму всех положительных чисел
Есть ответ
17.12.2022
263
Ответ
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.
Если вы нашли правильное решение, вы можете поблагодарить нас начиная с 10 рублей.
Просто нажмите на кнопку "Подарить".
Просто нажмите на кнопку "Подарить".
17.12.2022
