Question

Доброго времени суток!!!Помогите пожалуйста с задачей в Turbo Pascal. Даны два целых числа.Если они оба положительны,то большее из них заменить их средним
арифметическим.Если оба отрицательны,то поменять знак у
меньшего из них.Иначе каждое из них удвоить.

Answer 1

Если надо составить программу, то вот, держи.
program apple;
var a,b:integer;
begin readLn(a,b);
if a>0 && b>0 then
begin
if a>b a:=(a+b)/2;
else b:=(a+b)/2;
end
else a<0 && b<0
begin
if(a<b)a:=a*-1;
else b:=b*-1;
end
else
begin
a:=a*2;
b:=b*2;
end
end.
Могут быть небольшие оплошности т.к. не работаю с паскалем, но знаю некоторые основы.

Answer 2

Спасибо,подредактировал,всё заработало=))