Надо дополнить программу,чтобы он искал решение в x столбце . Program A1; var c:...

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

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

Comments

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

---

Program A1;
var
c: array[1..100, 1..100] of integer;
a : array[1..100] of integer;
n, m, i, j, x, k: integer;
begin
k:=0;
writeln('кол-во строк'); readln(n);
writeln('кол-во столбцов'); 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;
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 с результатми.Вывести на экран фамилии участников,чей результат лучше среднего.
Вот эту решить,сможешь,пожалуйста?