Поделитесь своими знаниями, ответьте на вопрос:
Оформите программу на ABC ПАСКАЛЕ, обеспечивающую: - заполнение одномерного массива R с клавиатуры N целыми значениями; - за минимальное число проходов по массиву R последовательное (а-б-в-г) формирование одномерного массива Q значениями элементов массива R в указанном порядке их исходного расположения в массиве R; а) сначала нечётные элементы, расположенные на четных позициях, в исходном порядке; б) затем чётные элементы на нечетных позициях в порядке, обратном исходному, в) потом нечётные элементы на нечетных позициях в порядке, обратном исходному, г) затем чётные элементы на четных позициях в исходном порядке, - Вывод элементов массива Q;
var n,i: integer; // объевляем переменные типа integer (целые числа)
function fact(n: integer): integer; // создаем функцию для нахождения факториала - которая принимает число (integer) и возвращает integer
begin // начало функции
if n = 1 then // проверка на то что число равно 1
fact:= 1 // если n=1, то факториал 1
else // если n не 1
fact:=fact(n-1)*n; // то ищем факториал рекурсивным
end; // конец функции
begin // старт программы
for i:= 1 to 9 do // цикл от 1 до 9
if i mod 2 = 1 then // проверка числа на остаток
writeln(fact(i)); // пишем факториал
end. // конец программы