Question

найти максимальный диагональный элемент и указать его координаты в главной диагонали матрицы, помогите написать программу

Answer 1

uses crt;const  h=100;var  a: array [1..h,1..h] of integer;  n,x,y,max: integer;
begin  write('Длина матрицы= '); readln(n);  // Enter  for x:=1 to n do    for y:=1 to n do    begin      write('a[',x,',',y,']= ');       readln(a[x,y]);    end;  //  max:=a[1,1];  while x<>n do  begin    if a[x,x] > max then     begin      max:=a[x,x];      y:=x;    end;    inc(x);  end;  writeln('Максимальный элемент равен ',max,'.Его координаты (',y,';',y,').');  end.