Напечатать элементы массива в прямом и обратном порядке - 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. - конец блока кода.

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

12   голосов , оценка 4.25 из 5
Похожие ответы