Найти минимальный из всех максимальных элементов столбцов матрицы - Turbo Pascal
Формулировка задачи:
Имеется матрица S(m,n). Найти минимальный из всех максимальных элементов столбцов. Вывести номер и значение найденного элемента.
Решение задачи: «Найти минимальный из всех максимальных элементов столбцов матрицы»
textual
Листинг программы
- const m = 6;
- n = 7;
- var s: array [1..m, 1..n] of integer;
- i, j, imax, imin, jmin: integer;
- begin
- randomize;
- writeln('Source array:');
- for i := 1 to m do
- begin
- for j := 1 to n do
- begin
- s[i, j] := -99 + random(199);
- write(s[i, j]:4)
- end;
- writeln
- end;
- for j := 1 to n do
- begin
- imax := 1;
- for i := 2 to m do if s[i, j] > s[imax, j] then imax := i;
- if (j = 1) or (s[imax, j] < s[imin, jmin])
- then begin
- imin := imax;
- jmin := j
- end
- end;
- write('Minimum element from maximum elements of columns: S[', imin, ', ', jmin, '] = ', s[imin, jmin]);
- readln
- end.
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д