Надо дополнить программу,чтобы он искал решение в 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('введите кол-во строк ...
Надо дополнить программу,чтобы он искал решение в 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.
Гость
Ответ(ы) на вопрос:
ГостьВопрос совершенно непонятен. Какая задача должна быть решена?
В программе - ошибки.
Не нашли ответ?
Похожие вопросы