Небольшой исходник на паскаль к уроку двумерные массивы, задача которого найти максимальный элемент среди минимальных элементов столбцов. Есть пояснительные комментарии к некоторым строкам.
Исходный код программы:
const
n = 4; m = 5;
var
matrix: array[1..n,1..m] of integer;
max, min, i, j: integer;
begin
randomize;
for i := 1 to n do begin
for j := 1 to m do begin
matrix[i,j] := random(100);
write(matrix[i,j]:3);
end;
writeln;
end;
max := 0; {максимум среди минимумов}
for j := 1 to m do begin {просмотр столбцов}
min := matrix[1,j]; {предполагаем, что первый в столбце минимален}
for i := 2 to n do {просматриваем столбец построчно}
if matrix[i,j] < min then
min := matrix[i,j]; {замена минимума}
if min > max then
max := min {замена максимума}
end;
writeln(max);
//readln //требуется для Turbo Pascal
end.Скачать исходник: maxstolb.pas