program MaxDiagonalElement;
uses crt;
const
  n = 10;
type
  matrix = array[1..n, 1..n] of integer;
var
  A: matrix;
  i, j, maxIndex: integer;
  max: integer;
begin
  randomize;
 
  { Створення та виведення матриці }
  writeln('Matrix A:');
  for i := 1 to n do
  begin
    for j := 1 to n do
    begin
      A[i, j] := random(100);  { Значення від 0 до 99 }
      write(A[i, j]:4);
    end;
    writeln;
  end;
 
  { Знаходження максимального елемента на головній діагоналі }
  max := A[1,1];
  maxIndex := 1;
  for i := 2 to n do
  begin
    if A[i, i] > max then
    begin
      max := A[i, i];
      maxIndex := i;
    end;
  end;
 
  writeln;
  writeln('Max on main diagonal: ', max, ' at row ', maxIndex);
  writeln('Entire row:');
 
  { Виведення всього рядка, де знайдений максимальний елемент }
  for j := 1 to n do
    write(A[maxIndex, j]:4);
 
  writeln;
end.

cHJvZ3JhbSBNYXhEaWFnb25hbEVsZW1lbnQ7CnVzZXMgY3J0Owpjb25zdAogIG4gPSAxMDsKdHlwZQogIG1hdHJpeCA9IGFycmF5WzEuLm4sIDEuLm5dIG9mIGludGVnZXI7CnZhcgogIEE6IG1hdHJpeDsKICBpLCBqLCBtYXhJbmRleDogaW50ZWdlcjsKICBtYXg6IGludGVnZXI7CmJlZ2luCiAgcmFuZG9taXplOwogIAogIHsg0KHRgtCy0L7RgNC10L3QvdGPINGC0LAg0LLQuNCy0LXQtNC10L3QvdGPINC80LDRgtGA0LjRhtGWIH0KICB3cml0ZWxuKCdNYXRyaXggQTonKTsKICBmb3IgaSA6PSAxIHRvIG4gZG8KICBiZWdpbgogICAgZm9yIGogOj0gMSB0byBuIGRvCiAgICBiZWdpbgogICAgICBBW2ksIGpdIDo9IHJhbmRvbSgxMDApOyAgeyDQl9C90LDRh9C10L3QvdGPINCy0ZbQtCAwINC00L4gOTkgfQogICAgICB3cml0ZShBW2ksIGpdOjQpOwogICAgZW5kOwogICAgd3JpdGVsbjsKICBlbmQ7CgogIHsg0JfQvdCw0YXQvtC00LbQtdC90L3RjyDQvNCw0LrRgdC40LzQsNC70YzQvdC+0LPQviDQtdC70LXQvNC10L3RgtCwINC90LAg0LPQvtC70L7QstC90ZbQuSDQtNGW0LDQs9C+0L3QsNC70ZYgfQogIG1heCA6PSBBWzEsMV07CiAgbWF4SW5kZXggOj0gMTsKICBmb3IgaSA6PSAyIHRvIG4gZG8KICBiZWdpbgogICAgaWYgQVtpLCBpXSA+IG1heCB0aGVuCiAgICBiZWdpbgogICAgICBtYXggOj0gQVtpLCBpXTsKICAgICAgbWF4SW5kZXggOj0gaTsKICAgIGVuZDsKICBlbmQ7CgogIHdyaXRlbG47CiAgd3JpdGVsbignTWF4IG9uIG1haW4gZGlhZ29uYWw6ICcsIG1heCwgJyBhdCByb3cgJywgbWF4SW5kZXgpOwogIHdyaXRlbG4oJ0VudGlyZSByb3c6Jyk7CgogIHsg0JLQuNCy0LXQtNC10L3QvdGPINCy0YHRjNC+0LPQviDRgNGP0LTQutCwLCDQtNC1INC30L3QsNC50LTQtdC90LjQuSDQvNCw0LrRgdC40LzQsNC70YzQvdC40Lkg0LXQu9C10LzQtdC90YIgfQogIGZvciBqIDo9IDEgdG8gbiBkbwogICAgd3JpdGUoQVttYXhJbmRleCwgal06NCk7CiAgCiAgd3JpdGVsbjsKZW5kLg==

MTA=

10