Question

В матрице обнулить элементы, целая часть которых является четным числом.Помогите это паскальДвумерные массивы

Answer 1

Program gt;
var a:array[1..100,1..100]of real;
n,i,j,m:integer;
begin
read(N,m);
for i:=1 to n do
begin
for j:=1 to m do
begin
read(a[i,j]);
if(trunc(a[i,j])mod 2=0)then a[i,j]:=0;
end;
end;
for i:=1 to n do
begin
for j:=1 to m do
begin
write(a[i,j],' ');
end;
writeln;
end;
end.

Answer 2

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

program MatrixZeroing;

const
  N = 3; // размерность матрицы

var
  matrix: array[1..N, 1..N] of Integer; // объявление двумерного массива
  i, j: Integer; // переменные для циклов

begin
  // заполнение матрицы случайными числами
  for i := 1 to N do
    for j := 1 to N do
      matrix[i, j] := Random(100); // случайное число от 0 до 99

// вывод исходной матрицы
  writeln('Исходная матрица:');
  for i := 1 to N do
  begin
    for j := 1 to N do
      write(matrix[i, j]:4);
    writeln;
  end;

// обнуление элементов с четной целой частью
  for i := 1 to N do
    for j := 1 to N do
      if matrix[i, j] mod 2 = 0 then // проверка на четность
        matrix[i, j] := 0;

// вывод обновленной матрицы
  writeln('Матрица после обнуления:');
  for i := 1 to N do
  begin
    for j := 1 to N do
      write(matrix[i, j]:4);
    writeln;
  end;

readln;
end.

В этом примере мы используем двумерный массив `matrix` размером `N x N`, где `N` - это размерность матрицы. Сначала мы заполняем матрицу случайными числами. Затем мы проходим по каждому элементу матрицы и проверяем, является ли его целая часть четным числом. Если это так, мы обнуляем этот элемент. В конце мы выводим исходную и обновленную матрицы.

Обратите внимание, что в приведенном выше коде используется процедура `Random`, которая генерирует случайное число от 0 до 99. Вы можете изменить это, если вам нужны другие диапазоны случайных чисел.

Надеюсь, это поможет вам решить вашу задачу! Если у вас возникнут дополнительные вопросы, пожалуйста, дайте мне знать.