Информатика

Роман

21 июля, 12:16

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