fefemf10
Хех решение стало чуть больше и я не могу его в коментарии скинуть ибо больше 500 символов
fefemf10
pastebin . com / F71G1jka перейди на этот сайт и убери прабелы из ссылки там на сайте будет код
PolinaN
Он почему то не правильно ответы пишет... Всегда выдаёт что является максимальным и минимальным, но это не так
fefemf10
Нет все так правильно, смотри там очень маленькая вероятность того что сумма главной диагонали будет меньше чем любое число из матрицы и с минимальным там точно так же
Answers & Comments
var
n,i,j,max,min: integer;
f1, f2: boolean;
mas: array[1..100,1..100] of integer;
begin
readln(n);
for i:=1 to n do
begin
for j:=1 to n do
read(mas[i,j]);
readln;
end;
max:=mas[1,1];
min:=mas[n,n];
for i:=2 to n do
if (mas[i,i] > max) then max:=mas[i,i];
for i:=1 to n do
if (mas[i,n-i+1] < min) then min:=mas[i,n-i+1];
writeln('Вывод');
for i:=1 to n do
for j:=1 to n do
begin
if (mas[i,j]> max) then f1:=true else f1:=false;
if (mas[i,j] < min) then f2:=true else f2:=false;
end;
if (f1) then
writeln('Полученый максимум по главной диагонали не является максимальным в матрице')
else writeln('Полученый максимум по главной диагонали является максимальным в матрице');
if (f2) then
writeln('Полученый минимум по побочной диагонали не является минимальным в матрице')
else writeln('Полученый минимум по побочной диагонали является минимальным в матрице');
end.