<em>// PascalABC.NET 3.2, сборка 1385 от 14.02.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var a:=ArrRandom(ReadInteger('n='),10,99); a.Println;
var b:=a.Where((x,i)->i.IsEven).Interleave(a.Where((x,i)->i.IsOdd).Sorted);
if a.Count<>b.Count then b:=b+a.Last;
b.Println
end.
<u>Пример</u>
n= 11
89 78 46 90 11 45 56 94 41 37 77
89 37 46 45 11 78 56 90 41 94 77
Смотри вложение div - целочисленное деление mod остаток от деления
1 Задача
1) Начало
2) i = 1
2.1) K = i^2
2.2) Вывод K
2.3) i = i + 1
2.4) i > 5 ?
Если Да, возвращаемся на 2.1)
Если Нет, окончание цикла.
3) Конец.
2 Задача
1) Начало
2) k = 0 (счетчик нечетных чисел)
3) Ввод первого числа A1
3.1) Если [A1 / 2] < A1 / 2, то k = k + 1 (ввели нечетное число)
4) Ввод второго числа A2
4.1) Если [A2 / 2] < A2 / 2, то k = k + 1 (ввели нечетное число)
5) Ввод третьего числа A3
5.1) Если [A3 / 2] < A3 / 2, то k = k + 1 (ввели нечетное число)
6) Вывод k
7) Конец
3 Задача
1) Начало
2) Объявление массива А() пока неизвестного размера (динамического)
3) i = 1
3.1) Ввод очередного числа A(i)
3.2) Если A(i) = 0, то переход на 4)
3.3) i = i + 1
3.4) Возврат на 3.1)
4) Переопределение динамического массива A(i) размером i элементов.
5) Конец
Если ее нету,или ссылка для нее не создана
2)15 (AC-CD-DE-EF) но лучше ещё раз проверить