loyolla
Сказано только что она прямоугольная!у меня есть код но я не знаю правильно ли он написан,если можно проверить его!
program chapter1;
var i, j, n, m, max, min: integer;
a: array[1..100, 1..100] of integer;
c: array[1..100] of integer;
begin
write(' n: '); readln(n);
write(' m: '); readln(m);
for i := 1 to n do
for j := 1 to m do
a[i,j] := random(21) - 10;
for i := 1 to n do
begin
min := a[i,1];
for j := 2 to m do
if a[i,j] < min then min := a[i,j];
c[i] := min;
end;
for j := 1 to m do
begin
max := a[1,j];
for i := 2 to n do
if a[i,j] > max then max := a[i,j];
max := a[i,j];
for i := 1 to n do
if max = c[i] then writeln(c[i], ' седловая точка в ', i,' строке и в, ', j, ' столбце');
end;
end.
Сказано только что она прямоугольная!у меня есть код но я не знаю правильно ли он написан,если можно проверить его!
program chapter1;
var i, j, n, m, max, min: integer;
a: array[1..100, 1..100] of integer;
c: array[1..100] of integer;
begin
write(' n: '); readln(n);
write(' m: '); readln(m);
for i := 1 to n do
for j := 1 to m do
a[i,j] := random(21) - 10;
for i := 1 to n do
begin
min := a[i,1];
for j := 2 to m do
if a[i,j] < min then min := a[i,j];
c[i] := min;
end;
for j := 1 to m do
begin
max := a[1,j];
for i := 2 to n do
if a[i,j] > max then max := a[i,j];
max := a[i,j];
for i := 1 to n do
if max = c[i] then writeln(c[i], ' седловая точка в ', i,' строке и в, ', j, ' столбце');
end;
end.