Вычислить сумму всех положительных чисел от - 10 до 10 паскаль

17 Мар 2020 в 19:41
171 +1
1
Ответы
1

var i,s: integer;

begin

s:=0;

for i:=-10 to 10 do

if i>0 then s:=s+i;

writeln(s);

end.

17 Мар 2020 в 20:24
Не можешь разобраться в этой теме?
Обратись за помощью к экспертам
Гарантированные бесплатные доработки в течение 1 года
Быстрое выполнение от 2 часов
Проверка работы на плагиат
Поможем написать учебную работу
Прямой эфир