Question

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

Answer 1

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.

 

как то так