Question

Ребяят понимаю что это паскаль но напешите что в нем писать плиииз 1 задача. Массив 5 чисел,диапозон от 0 до 20.выстроить числа в массиве в порядке возрастания(отсортировать массив в порядке возрастания)

Answer 1

//Pascal ABC.NET 3.1 сборка 1219

begin
var ar:=ArrRandomInteger(5,0,20);
 write('Array:'); ar.Println;
 sort(ar);
 write('Final array:'); ar.Print;
end.

Пример работы программы:
Array:19 3 3 0 4
Final array:0 3 3 4 19

Answer 2

Конечно, я могу помочь с написанием кода на языке программирования Pascal для сортировки массива из 5 чисел в порядке возрастания. Вот пример кода:

program SortArray;

var
  numbers: array[1..5] of Integer;
  i, j, temp: Integer;

begin
  // Вводим числа в массив
  writeln('Введите 5 чисел в диапазоне от 0 до 20: ');
  for i := 1 to 5 do
  begin
    write('Число ', i, ': ');
    readln(numbers[i]);

// Проверяем, чтобы число находилось в заданном диапазоне
    while (numbers[i] < 0) or (numbers[i] > 20) do
    begin
      writeln('Число должно быть в диапазоне от 0 до 20. Попробуйте снова.');
      write('Число ', i, ': ');
      readln(numbers[i]);
    end;
  end;

// Сортируем массив методом пузырька
  for i := 1 to 4 do
  begin
    for j := 1 to 5 - i do
    begin
      if numbers[j] > numbers[j + 1] then
      begin
        // Меняем местами числа, если они находятся в неправильном порядке
        temp := numbers[j];
        numbers[j] := numbers[j + 1];
        numbers[j + 1] := temp;
      end;
    end;
  end;

// Выводим отсортированный массив
  writeln('Отсортированный массив в порядке возрастания:');
  for i := 1 to 5 do
    write(numbers[i], ' ');

readln;
end.

Программа запрашивает у пользователя ввод 5 чисел в диапазоне от 0 до 20, затем сортирует массив методом пузырька и выводит отсортированный массив.