Question

Помогите решить задачу) Сформировать массив из 8 случайных вещественных чисел,принадлежащих промежутку {20;21) и вывести элементы этого массива в столбик в обратном порядке. 1 Смотреть ответ ManulTheLiar ManulTheLiar Program programma; Uses crt; var i: integer;     a:array[1..10] of real; begin clrscr;       randomize;       for i:=1 to 8 do       begin       a[i] := random *1+20;       write(a[i]:7:3);       end;       writeln;       writeln;       for i:=8 downto 1 do       writeln(a[i]:7:3);       readln; end.

Answer 1

Код, который вы предоставили, решает задачу формирования массива из случайных вещественных чисел в заданном промежутке и вывода их в обратном порядке. Однако, он содержит некоторые ошибки и опечатки.

Вот исправленный код, который решает задачу:

pascalCopy code
program ArrayReverse;
uses crt;

var
  i: integer;
  a: array[1..8] of real;

begin
  clrscr;
  randomize;

  // Формирование массива из случайных чисел в промежутке [20, 21)
  for i := 1 to 8 do
  begin
    a[i] := random + 20;
    writeln(a[i]:7:3);
  end;

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

  // Вывод элементов массива в обратном порядке
  for i := 8 downto 1 do
    writeln(a[i]:7:3);

  readln;
end.

В этом коде исправлены следующие проблемы:

1. Исправлено объявление массива a на array[1..8] of real, чтобы размер массива соответствовал задаче.
2. Исправлено выражение random * 1 + 20 на random + 20, чтобы получить случайное число в промежутке [20, 21).
3. Удалены ненужные пробелы и неправильные символы в коде.

Теперь код должен корректно формировать массив и выводить его элементы в обратном порядке.