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

Question

Гость

Ответ(ы) на вопрос:

Accepted Answer

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. как то так