Question

Паскаль.необходимо удалить из массива все элементы содержащие цифру 5

Answer 1

N1=10;
var
a:array[1..n1]of integer;
x,n,i,j,k:integer;
begin
write('x='); read(x);
write('n='); read(n);
if (n>=1) and (n<=10) then
begin
for i:=1 to n do
begin
write('a[',i,']='); read(a[i]);
end;
for i:=n downto 1 do
if a[i]=x then
begin
k:=i;
for k:=i to n-1 do
a[k]:=a[k+1];
a[n]:=0;
n:=n-1;
end;
for i:=1 to n do
writeln('a[',i,']',a[i]);
end
else write('error');
end.

Answer 2

В Pascal (или Object Pascal), чтобы удалить из массива все элементы, содержащие цифру 5, вы можете воспользоваться следующим подходом. Допустим, у вас есть массив целых чисел:

program RemoveElements;

const
  N = 10; // Размер массива

var
  arr: array[1..N] of Integer;
  i, j: Integer;

begin
  // Заполняем массив примером данных
  for i := 1 to N do
    arr[i] := Random(10); // Заполняем случайными числами от 0 до 9

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

// Удаляем элементы, содержащие цифру 5
  j := 0; // Индекс нового массива без элементов, содержащих 5
  for i := 1 to N do
  begin
    if Pos('5', IntToStr(arr[i])) = 0 then
    begin
      // Элемент не содержит 5, добавляем его в новый массив
      j := j + 1;
      arr[j] := arr[i];
    end;
  end;

// Обрезаем массив до новой длины
  SetLength(arr, j);

// Выводим массив после удаления элементов, содержащих цифру 5
  writeln('Массив после удаления элементов, содержащих цифру 5:');
  for i := 1 to Length(arr) do
    write(arr[i], ' ');
  writeln;

end.

Обратите внимание, что здесь используется функция `Pos`, чтобы проверить, содержится ли цифра 5 в строковом представлении числа. Затем создается новый массив, в который добавляются только те элементы, которые не содержат цифру 5. В конце программы массив обрезается до новой длины.