Даны числа если они положительны то выдать их сумму если отрицательны то выдать их разность

1

Ответы и объяснения

2013-03-18T11:48:40+00:00

var n,i,a,countPlus,countMinus,sum:integer;

 

begin

writeln ('Введите колличество чисел');

readln(n);

for i:=1 to n do

begin

readln (a);

if (a>0) then

begin

sum:=sum+a;

countPlus:=countPlus+1

end

else

begin

countMinus:=countMinus+1;

sum:=sum-a;

end;

 

 

end;

if (countPlus<>n) and (countMinus<>n) then writeln ('Вы ввели отрицательные и положительные числа вместе');

if (countPlus=n) then writeln (sum);

if (countMinus=n) then writeln (sum);

end.