Question

Заменить все элементы,попадающий в интервал[a,b] нулем. Решить, используя ДВУМЕРНЫЙ массив. Паскаль. Составьте код работающей программы ПОЖАЛУЙСТА

Answer 1

PascalABC.NET

begin

write('Введите размерность массива через пробел: ');

var MN := ReadArrInteger(2);

var A:= MatrRandomInteger(MN[1],MN[0],0,100);

A.Println();

write('Введите a, b через пробел: ');

var AB := ReadArrInteger(2);

var C := A.Cast&<integer>().ToArray().

Select(t -> ((t>=AB[0]) and (t<=AB[1])) ? 0 : t);

MatrGen(MN[1],MN[0], (i, j)-> C.ElementAt(i*MN[0]+j)).Println();

end.

Answer 2

Для того чтобы заменить все элементы двумерного массива, попадающие в интервал [a, b], на нули, нужно пройтись по всем элементам массива и проверить условие для каждого элемента. Если элемент попадает в интервал [a, b], то заменяем его на 0.

Вот пример кода на Pascal:

pascalCopy code
program ReplaceElementsWithZero;

const
  ROWS = 3; // Количество строк в двумерном массиве
  COLS = 3; // Количество столбцов в двумерном массиве

type
  TwoDimArray = array[1..ROWS, 1..COLS] of Integer;

procedure ReplaceElements(var arr: TwoDimArray; a, b: Integer);
var
  i, j: Integer;
begin
  for i := 1 to ROWS do
  begin
    for j := 1 to COLS do
    begin
      if (arr[i, j] >= a) and (arr[i, j] <= b) then
        arr[i, j] := 0;
    end;
  end;
end;

procedure DisplayArray(const arr: TwoDimArray);
var
  i, j: Integer;
begin
  for i := 1 to ROWS do
  begin
    for j := 1 to COLS do
    begin
      Write(arr[i, j]:4);
    end;
    Writeln;
  end;
end;

var
  arr: TwoDimArray;
  a, b: Integer;
  i, j: Integer;
begin
  // Заполнение двумерного массива случайными значениями от 1 до 10
  Randomize;
  for i := 1 to ROWS do
  begin
    for j := 1 to COLS do
    begin
      arr[i, j] := Random(10) + 1;
    end;
  end;

  // Вывод исходного массива
  Writeln('Исходный массив:');
  DisplayArray(arr);

  // Ввод интервала [a, b]
  Write('Введите значение a: ');
  Readln(a);
  Write('Введите значение b: ');
  Readln(b);

  // Замена элементов в интервале на нули
  ReplaceElements(arr, a, b);

  // Вывод измененного массива
  Writeln('Массив после замены:');
  DisplayArray(arr);
end.

В данном примере программы мы создаем двумерный массив arr размером 3x3 и заполняем его случайными значениями от 1 до 10. Затем пользователь вводит значения a и b, и программа заменяет все элементы массива, попадающие в интервал [a, b], на нули. Результат выводится на экран.