помогите пожалуйста сделать...

BoGdIcH · 17 мар 2010

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

Юрий_Б · 17 мар 2010

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.