Дан массив A размера N (N — нечетное число). Вывести его элементы с нечетными номерами в порядке убывания номеров:
AN, AN−2, AN−4, …, A1.

Условный оператор не использовать.

program qq;//название
const N=9; // вводим константу
var
A: array[1..N] of integer;//указание переменной и её тип
i: integer;//указание переменной и её тип
begin//начало
writeln(' Введите массив размера ', N, ':');
write(' ');//Вводим массив размера N
for i := 1 to N do//цикл for, тк повторение
read(A[i]);//считываем значение
writeln(' Выводим элементы с нечетными номерами(в обратном порядке): ');//вывод
write(' ');
i := N + 2;
while i > 1 do //Если номер i больше 1,
begin//начало цикла
i := i - 2; //то уменьшаем номер i на 2
write(' ', a[i]) //и выводим элемент массива
end;//конец цикла
end.//конец программы

Составьте блок схему к задаче

Nikita111r2    1   05.03.2020 18:48    16