Question

Массив из 15 элементов заполнить случайными целыми числами от 0 до 35 и вывести на экран в обратном порядке. Программа: PascalABC

Answer 1

Программа:

Pascal:

var arr: array[1..15] of integer;

 i: integer;

begin

 write('Исходный массив: ');

 for i := 1 to 15 do begin

   arr[i] := random(0, 35);

   write(arr[i], ' ');

 end;

 

 write(#10, 'Массив в обратном порядке: ');

 for i := 15 downto 1 do write(arr[i], ' ');

end.

Answer 2

var

 arr : array[1..15] of integer;

begin

 writeln('Заполняем массив случайными числами: ');

 for var i := 1 to 15 do

   begin

   arr[i] := random(0, 35);

   write(arr[i], ' ');

   end;

 writeln;

 writeln('Вывод элементов в обратном порядке: ');

 for var i := 15 downto 1 do

   write(arr[i], ' ');  

end.

Answer 3

Заполнение массива случайными числами и вывод на экран в обратном порядке в PascalABC

Чтобы заполнить массив из 15 элементов случайными целыми числами от 0 до 35 и вывести его на экран в обратном порядке в PascalABC, вам потребуется использовать генератор случайных чисел и циклы.

Вот пример программы на PascalABC, которая выполняет указанную задачу:

program ReverseArray;

var
  arr: array[1..15] of Integer;
  i: Integer;

begin
  Randomize; // Инициализация генератора случайных чисел

// Заполнение массива случайными числами от 0 до 35
  for i := 1 to 15 do
    arr[i] := Random(36); // Random(36) генерирует случайное число от 0 до 35

// Вывод массива на экран в обратном порядке
  for i := 15 downto 1 do
    WriteLn(arr[i]);

ReadLn;
end.

В этой программе мы используем генератор случайных чисел `Randomize`, чтобы инициализировать генерацию случайных чисел. Затем мы используем цикл `for` для заполнения массива `arr` случайными числами от 0 до 35 с помощью функции `Random(36)`. Затем мы используем еще один цикл `for`, но на этот раз с шагом `-1`, чтобы вывести элементы массива на экран в обратном порядке с помощью `WriteLn`.

Примечание: Программа будет генерировать новые случайные числа каждый раз при запуске. Поэтому результаты будут разными при каждом запуске программы.

Надеюсь, это поможет! Если у вас возникнут еще вопросы, не стесняйтесь задавать.