Cls
input n
dim a(n)
for i=1 to n
input a(i)
next i
for i=1 to n
for j=1 to n
if a(i)<a(j) then swap a(i),a(j)
next j
next i
for i=1 to n
print a(i);
next i
Ответ a) 1
((1 < 5) вниз (1 < 3)) вверх ((1 < 2) вниз (1 < 1))
(+ вниз +) вверх (+ вниз -)
+ вверх +
Ответ +, то есть выражение истинно
P.S. вниз и вверх это направление стрелок)
Дима ниже Вася ещё ниже Игорь и ещё ниже Толя
Уменьшится в 2 раза.
в юникоде сообщение составляет 40 байт, в кои-8 - 20 байт.
значит и уменьшится на 20 байт
program task31057170;
var
x: integer;
y: real;
begin
Writeln('ВВЕДИТЕ X: ');
Readln(x);
if x > 25 then
y := x / 2
else if x < 25 then
y := x + 4
else Writeln('Error: x = 25!');
Writeln('Y = ', y);
end.