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

задача такова:дан 2-х мерный массив из элементов х столбца,которая удовлетворяет условию четности и кратности 3-м,сформировать лиинейный массив.

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

writeln('введите номер столбца'); readln(x);for i := 1 to n do if (c[i, x] mod 2 = 0) and (c[i, x] mod 3 = 0) then begin inc(k); a[k] := c[i, x]; end;for i := 1 to k do write(a[i]:4);writeln;

сможешь еще помочь?

Дан линейный массив размер 5 с фамилиями участников и 2-х мерная таблица 5х3 с результатми.Вывести на экран фамилии участников,чей результат лучше среднего.Вот эту решить,сможешь,пожалуйста?