saniopt
?>

Оформите программу на ABC ПАСКАЛЕ, обеспечивающую: - заполнение одномерного массива R с клавиатуры N целыми значениями; - за минимальное число проходов по массиву R последовательное (а-б-в-г) формирование одномерного массива Q значениями элементов массива R в указанном порядке их исходного расположения в массиве R; а) сначала нечётные элементы, расположенные на четных позициях, в исходном порядке; б) затем чётные элементы на нечетных позициях в порядке, обратном исходному, в) потом нечётные элементы на нечетных позициях в порядке, обратном исходному, г) затем чётные элементы на четных позициях в исходном порядке, - Вывод элементов массива Q;

Информатика

Ответы

mpityk

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. // конец программы

Ответить на вопрос

Поделитесь своими знаниями, ответьте на вопрос:

Оформите программу на ABC ПАСКАЛЕ, обеспечивающую: - заполнение одномерного массива R с клавиатуры N целыми значениями; - за минимальное число проходов по массиву R последовательное (а-б-в-г) формирование одномерного массива Q значениями элементов массива R в указанном порядке их исходного расположения в массиве R; а) сначала нечётные элементы, расположенные на четных позициях, в исходном порядке; б) затем чётные элементы на нечетных позициях в порядке, обратном исходному, в) потом нечётные элементы на нечетных позициях в порядке, обратном исходному, г) затем чётные элементы на четных позициях в исходном порядке, - Вывод элементов массива Q;
Ваше имя (никнейм)*
Email*
Комментарий*

Популярные вопросы в разделе

Бурмистрова-Ирина660
dsnewline
arturnanda803
beglovatatiyana
rina394992
DzukaevAlekseevich
akbmaslafarkop3175
cochana
Olga1509
Grigorevna23
Tatyana Anton1475
Лилин1079
krtatiana69
moonligh3560
uvarovig