Матрица

[sv_dell_sv]

Матрица n, в каждом столбце элементы кратные К заменить на минимум столбцов. Элементы матрицы вводятся с клавиатуры.

[Stilet]

Элементы матрицы вводятся с клавиатуры.

Показывай как вводишь.

[sv_dell_sv]

Хм??? С клавиатуры....

[DRAgon™]

uses crt;
const n=5;
m=5;
const k=3;
var a:array[1..n,1..m]of integer;
i,j,min:Integer;
BEGIN
min:=1;
Writeln('MATRIZA:');
Writeln;
for i:=1 to N do
for j:=1 to M do begin
a[i,j]:=Random(10)+3; {сам введешь}
Write(a[i,j]:10);
end;
Writeln;
Writeln('MIN MATRIZA:');
for i:=1 to N do
for j:=1 to M do begin
if a[i,j] mod k=0 then
Write(a[i,j]:10);
end;
END.

[DRAgon™]

неправильно сделал
вот правильный код

uses crt;
const n=5;
m=5;
const k=3;
var a:array[1..n,1..m]of integer;
i,j,mini,minj:Integer;
BEGIN
mini:=1;
minj:=1;
Writeln('MATRIZA:');
Writeln;
for i:=1 to N do
for j:=1 to M do begin
a[i,j]:=Random(10)+3; {сам введешь}
Write(a[i,j]:10);
end;
Writeln;
Writeln('MIN MATRIZA:');
for i:=1 to N do
for j:=1 to M do begin
if a[i,j] mod k=0 then  begin
if a[i, j] < a[mini, minj] then
 begin
  mini := i;
  minj := j;
Write(a[mini,minj]:10);
end;
end;
end;
END.

[sv_dell_sv]

Она что то не то делает, она должна вывести исходную матрицу, только элементы кратные К должны быть заменены на минимумы столбцов...