Question

Надо дополнить программу,чтобы он искал решение в x столбце . Program A1; var c: array[1..100, 1..100] of integer; a, b: array[1..100] of integer; i, j, m, n, k, d: integer; begin d:=0; k:=0; writeln('введите кол-во строк в массиве'); readln(n); writeln('введите кол-во cтолбцов в массиве'); readln(m); for i := 1 to n do begin for j := 1 to m do begin c[i, j] := random(50); write(c[i, j]:4); end;writeln; end; writeln; for i := 1 to n do for j := 1 to m do if (c[i, j] mod 2 = 0) and (c[i, j] mod 2 = 0) and (c[i, j] mod 3 = 0) then begin inc(k); a[k] := c[i, j]; end; for i := 1 to k do write(a[i]:4); writeln; for i := 1 to n do for j := 1 to m do writeln; for i := 1 to d do write(b[i]:4); end.

Answer 1

Вопрос совершенно непонятен. Какая задача должна быть решена?
В программе - ошибки.

Answer 2

Данная программа написана на языке Pascal и выполняет следующую задачу: создает двумерный массив `c` размером `n` строк и `m` столбцов, заполняет его случайными числами от 0 до 50 и выводит его содержимое. Затем программа проходит по всем элементам массива `c` и проверяет, является ли текущий элемент четным числом, делящимся на 2 и 3 одновременно. Если это условие выполняется, то значение элемента добавляется в одномерный массив `a`. В конце программа выводит содержимое массива `a`.

Для того, чтобы программа искала решение в `x` столбце, необходимо внести следующие изменения:

1. Добавить переменную `x` типа `integer` для хранения номера столбца, в котором нужно искать решение. 2. Заменить строку `if (c[i, j] mod 2 = 0) and (c[i, j] mod 2 = 0) and (c[i, j] mod 3 = 0) then` на `if j = x then`, чтобы проверять только элементы в заданном столбце `x`. 3. Изменить запись найденного решения в массив `a` на `a[k] := c[i, j]`.

Вот обновленный код программы:

Program A1;
var
  c: array[1..100, 1..100] of integer;
  a, b: array[1..100] of integer;
  i, j, m, n, k, d, x: integer;

begin
  d := 0;
  k := 0;
  
  writeln('Введите кол-во строк в массиве');
  readln(n);
  
  writeln('Введите кол-во столбцов в массиве');
  readln(m);
  
  writeln('Введите номер столбца, в котором нужно искать решение');
  readln(x);
  
  for i := 1 to n do
  begin
    for j := 1 to m do
    begin
      c[i, j] := Random(50);
      write(c[i, j]:4);
    end;
    writeln;
  end;
  
  writeln;
  
  for i := 1 to n do
    for j := 1 to m do
      if j = x then
      begin
        if (c[i, j] mod 2 = 0) and (c[i, j] mod 2 = 0) and (c[i, j] mod 3 = 0) then
        begin
          inc(k);
          a[k] := c[i, j];
        end;
      end;
  
  for i := 1 to k do
    write(a[i]:4);
  
  writeln;
  
  for i := 1 to n do
    for j := 1 to m do
      writeln;
  
  for i := 1 to d do
    write(b[i]:4);
  
end.

Теперь программа будет искать решение только в заданном столбце `x` и сохранять найденные значения в массив `a`.