Дана: квадратная матрица Найти: наибольшее и наименьшее значения главной диагонали.
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.
Оцени ответ
Подпишись на наш канал в телеграм. Там мы даём ещё больше полезной информации для школьников!
