В матрице обнулить чётные элементы в строках с чётными номерами и нечётные элементы в строках с нечётными номерами

@Petro29 · Регистрация: 30.04.2016

Author24 — интернет-сервис помощи студентам

Заполнить случайным образом двумерный массив n x n.
Обнулить чётные элементы в строках с чётными номерами и нечётные элементы в строках с нечётными номерами.
Вывести оба массива на экран.

Pascal

uses Crt;
const N = 5;  M = 4;
Var a: array [1..N, 1..M] of Integer;
            i, j: Integer;
   for i:= 1 to N do begin
   for j:= 1 to M do begin
     a[i, j]:= 1 Random(50) – 5;
       Write(a[i, j]:4);
   end;  WriteLn;  end;
{Обнуление чётных и нечётных эл-в}
WriteLn(' Чётные эл-ты в строках: ');
   for i:= 1 to N do begin
     for j:= 1 to M do begin
   if a[i, j] mod 2 <> 0 then
a[i, j]:= 0;  Write('   ' , a[i, j]:3);
  end;  WriteLn;  end;;
  ReadLn
end.

На выходе имеем:

Pascal

-5   -4   38    8
 8   28   10    3
     13  16    -1  18
 -2   37   -3    9
      40  13   33   11
   Чётные эл-ты в строках:
      -5    0     0     5 
 0    0     0     3
13   0    -1    0
 0   37   -3    9
 0   13   33   11
Нечётные эл-ты в строках:
 0    0     0     0 
Во второй строке нечётных эл-в нет.
0    0    0    0
0    0    0    0
0    0    0    0

Нечётные элементы не сработали. А почему?
Вроде бы всё правильно.

@Puporev · 10.06.2018, 11:54

Сообщение от Petro29

чётные элементы в строках с чётными номерами и нечётные элементы в строках с нечётными номерами.

Pascal

1	if((a[i,j] mod 2=0)and(i mod 2=0))or((a[i,j] mod 2<>0)and(i mod 2<>0)) then a[imj]:=0;

@Petro29 · 30.06.2018, 21:57 **[ТС]**

Заполнить случайным образом двумерный массив n x n.
Обнулить чётные элементы в строках с чётными номерами и нечётные элементы в строках с нечётными номерами.
Вывести оба массива на экран.

Получил ответ от модератора Puporev в виде длинной строки. Вставил её в блок обнуления нечётных чисел.

Pascal

uses Crt;
const N = 5;  M = 4;
Var a: array [1..N, 1..M] of Integer;
            i, j: Integer;
   for i:= 1 to N do begin
   for j:= 1 to M do begin
     a[i, j]:=  Random(50) – 5;
       Write(a[i, j]:4);
   end;  WriteLn;  end;
{Обнуление чётных и нечётных эл-в}
WriteLn(' Чётные эл-ты в строках: ');
   for i:= 1 to N do begin
     for j:= 1 to M do begin
   if ((a[i, j] mod 2 = 0) and (i mod 2 = 0)) or ((a[i,j] mod 2 <> 0))
and(i mod 2 <> 0))  then  a[i, j]:= 0;
      Write('   ' , a[i, j]:3);
        end;  WriteLn;  end;;
WriteLn(' Нечётные эл-ты в строках:');
  ReadLn
end.

И на выходе получили что-то непонятное:

Pascal

-5   -4   38    5
 8   28   10    3
13   16   -1   18
-2   37   -3    9
40   13   33   11
       Чётные эл-ты в строках:
 -5   -4   38    5
  0    0     0    3
13   16   -1   18
 0    37   -3    9
40   13   33   11
        Нечётные эл-ты в строках:

И второго блока не стало. Короче, не получилось!

@Cyborg Drone · 01.07.2018, 00:12

Petro29, а что не так? Ну, кроме того, что Ваша программа не компилируется? После исправления ошибок в Вашей программе (добавил begin и randomize; после строки 4 и убрал все лишние скобки в строках 14 и 15) получил:

Код

  22  24  30  37
  25  37  22  37
  16  26  27  14
  16   9  39  -3
  43   8  14  18
 Чётные эл-ты в строках:
    22    24    30     0
    25    37     0    37
    16    26     0    14
     0     9    39    -3
     0     8    14    18
 Нечётные эл-ты в строках:

Всё согласно задания: обнулены чётные элементы в строках с чётными номерами и нечётные элементы в строках с нечётными номерами.

На мой вкус, я бы записал условие так:

Pascal

14	if (a[i, j] mod 2 = 0) = (i mod 2 = 0) then a[i, j] := 0;

Это то же самое, что и у Puporev, только чуть покороче.

Добавлено через 16 минут
А, нет, можно ещё короче:

Pascal

14	if odd(a[i, j]) = odd(i) then a[i, j]:= 0;

или

Pascal

14	if (a[i, j] xor i) and 1 = 0 then a[i, j]:= 0;

или

Pascal

14	if (a[i, j] + i) mod 2 = 0 then a[i, j]:= 0;

Или ещё как-нибудь.

Добавлено через 3 минуты
Или без if, например, так:

Pascal

14	a[i, j] := a[i, j] * ord(odd(a[i, j]) <> odd(i));

	01.07.2018, 00:12