Нечётные элементы матрицы А заменить на Х.

@Mr.LAmbdA · Регистрация: 15.10.2011

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

Дана матрица A: array [1..6,1..6] of integer и переменная Х. Нечётные элементы матрицы А заменить на Х.
Не могу исправить что был X вместо 0.

Pascal

const n=6;
var x,i,j:integer;
    a:array [1..n,1..n] of integer;
  begin
  randomize;
  for i:=1 to n do
  for j:=1 to n do 
  begin
      a[i,j]:=random(9);
  end;
      for i:=1 to n do
      for j:=1 to n do
      begin if odd(a[i,j])=true then a[i,j]:=0;   
      end;
      for i:=1 to n do 
  begin
      for j:=1 to n do
          write(a[i,j]:3);
          writeln
          end;
readln;
end.

@Igor · 15.10.2011, 18:30

Нуль ведь чётное число.

@Mr.LAmbdA · 15.10.2011, 18:34 **[ТС]**

Вместо 0 можно подставить и 1, тогда все нечетные элементы станут еденицами, а мне нужно что бы был X. Просто если подставить Х, то ничего не измениться

@Puporev · 15.10.2011, 19:43

Pascal

uses crt;
const n=6;
var x,i,j:integer;
    a:array [1..n,1..n] of integer;
  begin
  randomize;
  writeln('Исходная матрица:');
  for i:=1 to n do
   begin
    for j:=1 to n do
     begin
      a[i,j]:=random(9);
      write(a[i,j]:3);
     end;
    writeln;
   end;
  write('Введите целое число x=');
  readln(x);
  writeln('Замена нечетных элементов:');
  for i:=1 to n do
   begin
    for j:=1 to n do
     begin
      if odd(a[i,j]) then a[i,j]:=x;
      write(a[i,j]:3);
     end;
    writeln
  end;
readln;
end.

@Mr.LAmbdA · 15.10.2011, 20:31 **[ТС]**

Спасибо огромное)

@Igor 4654 / 3406 / 361 Регистрация: 11.11.2010 Сообщений: 6,205 Записей в блоге: 2
	15.10.2011, 18:30	2
	Нуль ведь чётное число. 0

@Mr.LAmbdA 0 / 0 / 0 Регистрация: 15.10.2011 Сообщений: 6
	15.10.2011, 18:34 [ТС]	3
	Вместо 0 можно подставить и 1, тогда все нечетные элементы станут еденицами, а мне нужно что бы был X. Просто если подставить Х, то ничего не измениться 0

@Mr.LAmbdA 0 / 0 / 0 Регистрация: 15.10.2011 Сообщений: 6
	15.10.2011, 20:31 [ТС]	5
	Спасибо огромное) 0

Опции темы