Question

ПАСКАЛЬ, 10 КЛАСС, ОЧЕНЬ НАДО!! Заполните массив случайными числами в интервале [100, 999] и переставьте их по возрастанию старшей цифры​

Answer 1

Var
a: array[1..10] of integer;
i, j, temp: integer;
begin
randomize;
for i := 1 to 10 do
begin
a[i] := random(100,999);
write(a[i]:3);
end;
writeln;
for i := 1 to 10 - 1 do
for j := i + 1 to 10 do
if a[i] > a[j] then
begin
temp := a[i];
a[i] := a[j];
a[j] := temp;
end;
for i := 1 to 10 do
write(a[i]:3);
end.

Answer 2

Привет, я могу помочь с генерацией и сортировкой массива на языке программирования Pascal.

Вот пример кода для заполнения массива случайными числами в интервале [100, 999] и сортировки по возрастанию старшей цифры:

pascalCopy code
program SortByFirstDigit;

const
  N = 10; // количество элементов в массиве

var
  arr: array[1..N] of Integer;
  i, j, tmp: Integer;

// функция для получения первой цифры числа
function GetFirstDigit(num: Integer): Integer;
begin
  while num >= 10 do
    num := num div 10;
  GetFirstDigit := num;
end;

begin
  // заполнение массива случайными числами в интервале [100, 999]
  Randomize;
  for i := 1 to N do
    arr[i] := Random(900) + 100;

  // сортировка по возрастанию старшей цифры
  for i := 1 to N-1 do
    for j := i+1 to N do
      if GetFirstDigit(arr[i]) > GetFirstDigit(arr[j]) then
      begin
        tmp := arr[i];
        arr[i] := arr[j];
        arr[j] := tmp;
      end;

  // вывод отсортированного массива
  for i := 1 to N do
    WriteLn(arr[i]);
end.

В этом коде используется функция GetFirstDigit, которая принимает число и возвращает его первую цифру. Эта функция используется для сравнения старших цифр чисел при сортировке. Затем массив заполняется случайными числами с помощью функции Random, а затем сортируется по старшей цифре с помощью вложенных циклов for. Наконец, отсортированный массив выводится на экран с помощью WriteLn.