Question

В массиве удалить все элементы, имеющие нечетные значения.паскальпожалуйстааа

Answer 1

const n = 10;

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

i, k, j: integer;

begin

randomize;

for i:=1 to n do

begin

a[i] := random(31);

write(a[i],'  ')

end;

writeln;

i := 1;

k := n;

while i<=k do

if a[i] mod 2 <> 0 then

begin

k := k-1;

for j:=i to k do a[j] := a[j+1]

end

else i := i+1;

for i:=1 to k do write(a[i],'  ');

end.

Answer 2

Конечно, вот пример кода на Pascal для удаления всех элементов с нечетными значениями из массива:

arduinoCopy code
program remove_odd_elements;
const
  MAX_SIZE = 100; // максимальный размер массива
var
  arr: array[1..MAX_SIZE] of Integer;
  n, i, j: Integer;
begin
  // чтение размера массива
  Write('Введите размер массива (не более ', MAX_SIZE, '): ');
  ReadLn(n);

  // чтение элементов массива
  WriteLn('Введите элементы массива:');
  for i := 1 to n do
  begin
    Write('arr[', i, '] = ');
    ReadLn(arr[i]);
  end;

  // удаление элементов с нечетными значениями
  j := 1;
  for i := 1 to n do
  begin
    if (arr[i] mod 2 = 0) then // проверка на четность
    begin
      arr[j] := arr[i];
      j := j + 1;
    end;
  end;
  n := j - 1; // новый размер массива

  // вывод нового массива
  WriteLn('Новый массив:');
  for i := 1 to n do
  begin
    WriteLn('arr[', i, '] = ', arr[i]);
  end;
end.

Пример работы программы:

lessCopy code
Введите размер массива (не более 100): 5
Введите элементы массива:
arr[1] = 2
arr[2] = 5
arr[3] = 4
arr[4] = 7
arr[5] = 1
Новый массив:
arr[1] = 2
arr[2] = 4

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