Question

Дан массив из 10 целых чисел в диапазоне [-10000,10000]. Перепишите в другой массив только нечетные числа и отсортируйте их по возрастанию. Гарантируется, что нечетные числа в массиве есть. С помощью программы PascalABC.NET

Answer 1

Program c;var a,b:array [1..10] of integer;  i,j,temp,l,q:integer;begin   j:= 1;   for i:=1 to 10 do    begin      readln(a[i]);      if a[i] mod 2 = 1 then        begin        b[j]:=a[i];        j:=j+1;        end;      end;      j:= j - 1;      l:= j;     for i := 1 to j do        for  q:= 1 to j - i do            if b[q] > b[q+1] then begin                temp := b[q];                b[q] := b[q+1];                b[q+1] := temp;            end;   writeln('Res:');     for i:= 1 to l do      writeln(b[i]);end.    

Answer 2

Для решения этой задачи на языке PascalABC.NET, мы можем использовать следующий код. Он считывает 10 целых чисел в массив, отбирает только нечетные числа и сортирует их по возрастанию.

pascalCopy code
program OddNumbersSorting;

const
  N = 10;

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

begin
  // Считываем 10 целых чисел в массив
  writeln('Введите ', N, ' целых чисел:');
  for i := 1 to N do
    readln(numbers[i]);

  // Отбираем только нечетные числа и записываем их в массив oddNumbers
  SetLength(oddNumbers, 0);
  for i := 1 to N do
  begin
    if numbers[i] mod 2 <> 0 then
    begin
      SetLength(oddNumbers, Length(oddNumbers) + 1);
      oddNumbers[Length(oddNumbers)] := numbers[i];
    end;
  end;

  // Сортируем нечетные числа по возрастанию
  for i := 1 to Length(oddNumbers) - 1 do
  begin
    for j := i + 1 to Length(oddNumbers) do
    begin
      if oddNumbers[i] > oddNumbers[j] then
      begin
        temp := oddNumbers[i];
        oddNumbers[i] := oddNumbers[j];
        oddNumbers[j] := temp;
      end;
    end;
  end;

  // Выводим результат
  writeln('Отсортированные нечетные числа:');
  for i := 1 to Length(oddNumbers) do
    write(oddNumbers[i], ' ');

  readln;
end.

Скопируйте этот код в среду программирования PascalABC.NET и запустите программу. Она попросит ввести 10 целых чисел, а затем выведет отсортированные нечетные числа.