Надо дополнить программу,чтобы он искал решение в 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.
В программе - ошибки.