Напечатать элементы массива в прямом и обратном порядке - Pascal ABC
Формулировка задачи:
Задача:
Сформировать одномерный массив из N элементов, где элементы
массива- целые случайные числа в пределах от 1 до 45. Напечатать
элементы массива в прямом и обратном порядке.
Решение задачи: «Напечатать элементы массива в прямом и обратном порядке»
textual
Листинг программы
const n=30; var a:array [1..n] of integer; i,g,a:integer; BEGIN For i:=1 to n do a[i]:=Random(45)+1; For i:=1 to n do For j:=1 to n-i do IF a[j]>a[j+1] THEN begin a:=a[j]; a[j]:=a[j+1]; a[j+1]:=a; end; For i:=1 to n do Write (a[i], ' '); Writeln; For i:=n downto 1 do Write (a[i], ' '); END.
Объяснение кода листинга программы
В данном коде объявлены следующие переменные:
- n - количество элементов в массиве (в данном случае 30);
- a - массив целых чисел;
- i - индекс текущего элемента массива;
- g - значение текущего элемента массива;
- a - значение предыдущего элемента массива;
- BEGIN - начало блока кода;
- FOR - цикл, который заполняет массив случайными числами от 1 до 45;
- NEXT - переход к следующему значению переменной i;
- FOR - еще один цикл, который проверяет, что текущий элемент больше следующего, и если это так, меняет их местами;
- NEXT - переход к следующему значению переменной i;
- FOR - еще один цикл, который выводит элементы массива в прямом порядке;
- NEXT - переход к следующему значению переменной i;
- WRITELN - выводит строку на экран;
- END. - конец блока кода.
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д