Question

Написать программу на языке Паскаль, которая заполняет массив из n чисел случайными значениями в диапазоне от 0 до 50, затем выводит массив на экран. После - сортирует по неубыванию четные числа этого массива и выводит на экран новый массив

Answer 1

var m,a:array [-100..100] of integer;

n,j,i,count:integer;

begin

write('введите сколько необходимо чисел: ');

read(n);

randomize;

for i:=1 to n do begin

m[i]:=random(51);

write(m[i],' ');

if m[i] mod 2 = 0 then begin

inc(count);

a[count]:=m[i];

end;

end;

writeln;

for i:=1 to count-1 do begin

for j:=1 to count-i do

  if a[j] > a[j+1] then

    swap(a[j+1],a[j]);

 end;

 for i:=1 to count do

   write(a[i],' ');

end.

Answer 2

Ответ:

var

 N:array of integer;

 A:integer;

begin

 write('Длина массива: '); readln(A);

 setlength(N,A);

 N.FillRandom(0,50);

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

 var X:=N.FindAll(x -> x mod 2 = 0); X.Sort;

 writeln('Полученный массив: ',X);

end.

Примечание:

Не претендую на лучшее решение,просто сделал программу чуть короче)

Answer 3

Вот программа на языке Паскаль, которая выполняет описанные вами действия:

pascalCopy code
program SortEvenNumbers;

const
  n = 10; // Задайте желаемый размер массива

var
  arr: array[1..n] of integer;
  i, j, temp: integer;

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

  // Заполняем массив случайными значениями в диапазоне от 0 до 50
  for i := 1 to n do
    arr[i] := Random(51); // Random возвращает случайное число от 0 до 50

  // Выводим исходный массив на экран
  writeln('Исходный массив:');
  for i := 1 to n do
    write(arr[i], ' ');
  writeln;

  // Сортируем четные числа по неубыванию
  for i := 1 to n - 1 do
    for j := i + 1 to n do
      if (arr[i] mod 2 = 0) and (arr[j] mod 2 = 0) and (arr[i] > arr[j]) then
      begin
        // Обмен элементов, если необходимо
        temp := arr[i];
        arr[i] := arr[j];
        arr[j] := temp;
      end;

  // Выводим отсортированный массив четных чисел на экран
  writeln('Отсортированный массив четных чисел:');
  for i := 1 to n do
    if arr[i] mod 2 = 0 then
      write(arr[i], ' ');
  writeln;
end.

Вы можете изменить значение n на желаемый размер массива. Эта программа сначала заполняет массив случайными числами, затем выводит исходный массив, сортирует четные числа и выводит отсортированный массив четных чисел.