Question

ПОМОГИТЕ ПОЖАЛУЙСТА!! Записать программу на языке Паскаль дан массив заполнить его пятнадцатью случайными числами и расставить их по возрастанию

Answer 1

program mas_sort_ub_i_max;

const

n=15;

var

a:array[1..n] of integer;

i,t,j:integer;

begin

writeln('Массив исходный 》');

for i:=1 to n do

begin

a[i]:=random(41)-20;

write(a[i]:3,' ');

end;

writeln;

for i:=1 to n-1 do

for j:=i+1 to n do

if (a[i])>(a[j]) then

begin

t:=a[i];

a[i]:=a[j];

a[j]:=t;

end;

writeln('Массив отсортированный 》');

for i:=1 to n do

write(a[i]:3,' ')

end.

Answer 2

===== PascalABC.NET =====

begin

 var a := ArrRandom(15, -99, 99);

 a.Println;

 a.Sort;

 a.Print

end.

Answer 3

Конечно! Вот пример программы на языке Паскаль, которая создает массив, заполняет его пятнадцатью случайными числами и сортирует их по возрастанию:

pascalCopy code
program СортировкаМассиваПоВозрастанию;

const
  N = 15;

var
  массив: array[1..N] of Integer;
  i, j, временное: Integer;

begin
  // Заполнение массива случайными числами
  Randomize;
  for i := 1 to N do
    массив[i] := Random(100); // Генерируем случайное число от 0 до 99

  // Сортировка массива по возрастанию (метод пузырька)
  for i := 1 to N - 1 do
    for j := 1 to N - i do
      if массив[j] > массив[j + 1] then
      begin
        // Обмен значениями
        временное := массив[j];
        массив[j] := массив[j + 1];
        массив[j + 1] := временное;
      end;

  // Вывод отсортированного массива
  writeln('Отсортированный массив по возрастанию:');
  for i := 1 to N do
    writeln(массив[i]);
end.

Эта программа сначала заполняет массив массив случайными числами от 0 до 99. Затем она сортирует массив методом пузырька, перебирая пары элементов и меняя их местами, если текущий элемент больше следующего. В конце программа выводит отсортированный массив на экран.

Обратите внимание, что в Pascal индексация массива начинается с 1, поэтому мы объявляем массив с индексами от 1 до N.