Помогите :
Красная Шапочка часто навещает свою бабушку . Но она очень Боится, что рано или поздно ее бабушку опять навестит волк. Поэтому она решила договориться с Лесничим об охране бабушке. Лесничий согласился охранять бабушку за 10 пирожков. Узнав об этом , волк сказал Красной Шапочке , что ей совершенно незачем тратить пирожки на Лесничего. За половину тех пирожков , которые Красная Шапочка несет,и не больше,чем запросил лесничий , Волк пообещал не трогать ее.Сегодня (29 ноября) в России отмечается день матери . Мама испекла несколько пирожков , и попросила Красную Шапочку отнести их бабушку.Требуется определить, сколько Красная Шапочка сможет донести до бабушки.
Формат входных данных :
Во Входном файле содержится N (1<N<100) - натуральное четное число - количество пирожков,которые испекла мама.
Формат выходных данных:
В единственную строку выходного файла нужно вывести одно число-количество пирожков , которые красная шапочка сможет донести до бабушки.
ВСЕ ЭТО В ПРОГРАММЕ PascalABC.NET
Через режим инкогнито. Такой в каждом браузере есть.
//FPC 2.6.4
var
a: array of longint;
size, i, j: longint;
begin
randomize;
writeln('Колво элементов: ');
readln(size);
setLength(a, size);
write('Исходный случайный массив: ');
for i:=0 to size-1 do
begin
a[i]:=random(201)-100;
write(a[i], ' ');
end;
writeln;
<span> for i:=0 to size-2 do
for j:=0 to size-i-2 do
if a[j]>a[j+1] then
begin
<span> a[j]:=a[j] xor a[j+1];
a[j+1]:=a[j] xor a[j+1];
a[j]:=a[j] xor a[j+1];
end;
</span></span>
writeln('Отсортированный массив: ');
for i:=0 to size-1 do write(a[i], ' ');
writeln;
end.