Розв’язок задачі з Абрамова №388
Тра 28

Всі умови | Умова: У квадратній цілочисельній матриці порядку 17 вказати індекси всіх елементів з найбільшим значенням. (С.А. Абрамов, Г.Г. Гнездилова,Е.Н. Капустина, М.И. Селюн. Задачи по программированию. - Вологда, 2000. - №388)
program Pr388; type TPoint = record x : byte; y : byte; end; var M : array [1..17, 1..17] of byte; result : array[0..288] of TPoint; pos : integer; max : byte; i, j : integer; begin // enter data to array randomize; for i := 1 to 17 do begin for j := 1 to 17 do begin M[i, j] := random(256); write(M[i, j], ' '); end; writeln(''); end; pos := 0; max := 0; for i := 1 to 17 do for j := 1 to 17 do begin if (M[i,j] > max) then begin pos := 0; max := M[i, j]; end; if (M[i,j] = max) then begin; result[pos].x := i; result[pos].y := j; inc(pos); end; end; writeln('------------------'); writeln('Max: ', max); writeln('Result:'); for i := 0 to pos - 1 do writeln(result[i].x,' x ', result[i].y); readln; end.