Ответ:
Объяснение:
var n:integer;
begin write('введите n - '); readln(n);
if n <> 0 then
write(n * (-1))
else write('знак не может быть изменен');
end.
Из какой системы переводить?
var
A:array [1..8] of byte;
i:integer;
begin
for i:=1 to 8 do readln(A[i]);
for i:=1 to 8 do writeln(A[i]);
for i:=8 downto 1 do
begin
if not Odd(A[i]) then writeln(A[i]);
end;
readln;
end.
Физика-5+4+4+5=18:4=4,5
Химия-3+4+3+4=14:4=3,5
Алгебра-4+4+3+4=15:4=3,75
Геометрия-4+3+3+3=13:4=3,25
Если надо округлять:
Физика:5
Химия:4
Алгебра:4
Геометрия:3