Сделать программу в фри паскале : сначало надо найти сумму положительных\отрцательных и потом их сложить

Каркушааа Каркушааа    2   21.05.2019 17:00    0

Ответы
petr0poroshenko petr0poroshenko  01.10.2020 04:28

var ch,so,sp:integer;

begin

for i:=1 to 4 do

begin

if ch>0 then sp:=s+ch

else 

so:=so+ch;

end;

writeln(so+sp);

end.

 

как то так

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика