Question

Дан целочисленный массив размера N (Const N=20). Удалить из массива все нечетные числа и вывести размер полученного массива и его содержимое (т.е. необходимо сдвигать элементы). Пожалуйста, напишите полный код Pascal

Answer 1

const n=20;

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

   i,j,c:integer;

begin

 randomize;

 for i:=1 to n do begin

   a[i]:=random(100);

   writeln('a[',i,']=',a[i]);

 end;

 for i:=1 to n do begin

   while (a[i] mod 2 <> 0) do begin

     c += 1;

     for j:=i to n-1 do begin

       a[j]:=a[j+1];

       a[j+1]:=0;

     end;

   end;

 end;

 

 writeln('Размер массива: ',n-c);

 for i:=1 to n-c do begin

   writeln('a[',i,']=',a[i]);

 end;

end.

Answer 2

Конечно! Вот полный код на языке Pascal для удаления нечетных чисел из массива:

pascalCopy code
program RemoveOddNumbers;

const
  N = 20;

type
  IntArray = array[1..N] of Integer;

procedure RemoveOdd(var arr: IntArray; var newSize: Integer);
var
  i, j: Integer;
begin
  j := 1;
  for i := 1 to newSize do
  begin
    if arr[i] mod 2 = 0 then
    begin
      arr[j] := arr[i];
      j := j + 1;
    end;
  end;
  newSize := j - 1;
end;

procedure PrintArray(const arr: IntArray; size: Integer);
var
  i: Integer;
begin
  for i := 1 to size do
    Write(arr[i], ' ');
  Writeln;
end;

var
  numbers: IntArray;
  i, newSize: Integer;
begin
  Randomize;

  // Заполнение массива случайными числами
  for i := 1 to N do
    numbers[i] := Random(100);

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

  newSize := N;
  RemoveOdd(numbers, newSize);

  Writeln('Размер нового массива:', newSize);
  Writeln('Новый массив:');
  PrintArray(numbers, newSize);

  Readln;
end.

В этом коде используется процедура RemoveOdd, которая принимает массив и его текущий размер и удаляет все нечетные числа, сдвигая элементы. После удаления массив сокращается, и новый размер возвращается через параметр newSize.

Процедура PrintArray используется для вывода содержимого массива.

В основной части кода массив numbers заполняется случайными числами, а затем выводится исходный массив. Затем вызывается RemoveOdd для удаления нечетных чисел и вывода нового размера и содержимого массива.