Дана: квадратная матрица Найти: наибольшее и наименьшее значения главной диагонали.

uses crt;

var

a:array [1 ... 1000,1 ... 1000] of integer;

i, j, max, min, k:integer;

begin

clrscr; randomize;

write ('Введи количество столбцов/строк матрицы: ') ; read (k) ;

for i:=1 to k do

begin

for j:=1 to k do

begin

a[i, j]:=random (100) - 50;

write (a[i, j]:4) ;

end;

writeln;

end;

max:=1; min:=1;

for i:=2 to k do

if a[i, i]>max then max:=a[i, i]

else

if a[i, i]
writeln ('Наибольшее значение главной диагонали: ', max) ;

write ('Наименьшее значение главной диагонали: ', min) ;

end.

var

a:array [1 ... 100,1 ... 100] of integer;

i, j, max, min, n:integer;

begin

write ('Введите порядок матрицы: ') ; readln (n) ;

randomize;

for i:=1 to n do begin

for j:=1 to n do begin

a[i, j]:=random (25) - 9;

write (a[i, j]:4) ;

end;

writeln;

end;

max:=a[1,1];

min:=a[1,1];

for i:=2 to n do

if a[i, i]>max then max:=a[i, i] else

if a[i, i]
writeln ('Max: ', max) ;

writeln ('Min: ', min) ;

readln;

end.