Всё очень просто. Первый делом вы должны искать максимальный элемент массива, запоминая строку, в которой он находится. Далее нужно создать два массива : в первый записать значения строки, где находится максимальный элемент, а во второй - тот столбец К. ( Можете принять, что матрица квадратная, иначе следовали бы какие-то другие условия ) После этого уже понятно, как поменять элементы строки и столбца. Ещё можно создать дополнительную матрицу, но это будет не выгодно по памяти, да и по времени тоже. Вроде бы понятно объяснил
Var t, h, mm, ss: integer; ct, ch, cmm, css: string;
begin Write('Введите время в секундах от начала суток -> ');Readln(t); h := t div 3600; t := t mod 3600; mm := t div 60; ss := t mod 60; Str(h, ch); ct := ch + ':'; Str(mm, cmm); if Length(cmm) = 1 then ct := ct + '0' + cmm + ':' else ct := ct + cmm + ':'; Str(ss, css); if Length(css) = 1 then ct := ct + '0' + css else ct := ct + css; Writeln('Указано время ', ct) end.
Тестовое решение: Введите время в секундах от начала суток -> 27429 Указано время 7:37:09
Далее нужно создать два массива : в первый записать значения строки, где находится максимальный элемент, а во второй - тот столбец К.
( Можете принять, что матрица квадратная, иначе следовали бы какие-то другие условия )
После этого уже понятно, как поменять элементы строки и столбца.
Ещё можно создать дополнительную матрицу, но это будет не выгодно по памяти, да и по времени тоже.
Вроде бы понятно объяснил
t, h, mm, ss: integer;
ct, ch, cmm, css: string;
begin
Write('Введите время в секундах от начала суток -> ');Readln(t);
h := t div 3600;
t := t mod 3600;
mm := t div 60;
ss := t mod 60;
Str(h, ch);
ct := ch + ':';
Str(mm, cmm);
if Length(cmm) = 1 then ct := ct + '0' + cmm + ':' else ct := ct + cmm + ':';
Str(ss, css);
if Length(css) = 1 then ct := ct + '0' + css else ct := ct + css;
Writeln('Указано время ', ct)
end.
Тестовое решение:
Введите время в секундах от начала суток -> 27429
Указано время 7:37:09