Question

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

Answer 1

Готово.....................

Answer 2

Конечно! Вот пример задачи на Паскаль, которая решает вашу задачу:

pascalCopy code
program RemoveElements;

const
  MAX_SIZE = 100; // Максимальный размер массива

var
  arr: array[1..MAX_SIZE] of Integer; // Линейный массив
  n, x, i, j: Integer; // Переменные

begin
  // Ввод размера массива
  write('Введите размер массива: ');
  readln(n);

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

  // Ввод числа x
  write('Введите число x: ');
  readln(x);

  // Удаление элементов равных x
  j := 0; // Индекс для перезаписи элементов
  for i := 1 to n do
  begin
    if arr[i] <> x then
    begin
      j := j + 1;
      arr[j] := arr[i];
    end;
  end;

  // Обновление размера массива
  n := j;

  // Вывод измененного массива
  writeln('Измененный массив:');
  for i := 1 to n do
    writeln('arr[', i, ']: ', arr[i]);
end.

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