Информатика

Севастьяна

26 июля, 05:04

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