Código
writeln('La matriz que usted ha introducido es: '); writeln( ); for i:= low(a) to high(a) do begin for j:=low(a[i]) to high(a[i]) do write(' ', a[i,j]:2, ' '); writeln( ); end; max:= a[1, 1]; for i:= 1 to 4 do begin if (a[i,i] > max) then begin max:=a[i,i]; end; end; writeln( ); writeln('El mayor elemento de la diagonal principal es: ', max); min:= a[1,4]; j:=5; for i:= 1 to 4 do begin if (a[i,j-i] < min) then begin min:=a[i,j-i]; end; end; writeln('El menor elemento de la diagonal secundaria es: ', min); writeln( );
Muchas gracias
Nota del mod: se hace más legible con etiquetas de código