Найти минимальный из всех максимальных элементов столбцов матрицы - Turbo Pascal

Узнай цену своей работы

Формулировка задачи:

Имеется матрица S(m,n). Найти минимальный из всех максимальных элементов столбцов. Вывести номер и значение найденного элемента.

Решение задачи: «Найти минимальный из всех максимальных элементов столбцов матрицы»

textual
Листинг программы
  1. const m = 6;
  2.       n = 7;
  3. var s: array [1..m, 1..n] of integer;
  4.     i, j, imax, imin, jmin: integer;
  5. begin
  6.   randomize;
  7.   writeln('Source array:');
  8.   for i := 1 to m do
  9.     begin
  10.       for j := 1 to n do
  11.         begin
  12.           s[i, j] := -99 + random(199);
  13.           write(s[i, j]:4)
  14.         end;
  15.       writeln
  16.     end;
  17.   for j := 1 to n do
  18.     begin
  19.       imax := 1;
  20.       for i := 2 to m do if s[i, j] > s[imax, j] then imax := i;
  21.       if (j = 1) or (s[imax, j] < s[imin, jmin])
  22.         then begin
  23.           imin := imax;
  24.           jmin := j
  25.         end
  26.     end;
  27.   write('Minimum element from maximum elements of columns: S[', imin, ', ', jmin, '] = ', s[imin, jmin]);
  28.   readln
  29. end.

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

15   голосов , оценка 4 из 5

Нужна аналогичная работа?

Оформи быстрый заказ и узнай стоимость

Бесплатно
Оформите заказ и авторы начнут откликаться уже через 10 минут
Похожие ответы