Question

Написать программу в паскаль, не получаются они у меня, помогите пожалуйста!

Answer 1

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.