Написать программу в паскаль, не получаются они у меня, помогите пожалуйста!
Написать программку в паскаль, не получаются они у меня, помогите пожалуйста!
Задать свой вопрос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] gt; max) then max:=mas[i,i];
for i:=1 to n do
if (mas[i,n-i+1] lt; 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]gt; max) then f1:=true else f1:=false;
if (mas[i,j] lt; min) then f2:=true else f2:=false;
end;
if (f1) then
writeln('Полученый максимум по основной диагонали не является наибольшим в матрице')
else writeln('Полученый максимум по основной диагонали является максимальным в матрице');
if (f2) then
writeln('Полученый минимум по побочной диагонали не является наименьшим в матрице')
else writeln('Полученый минимум по побочной диагонали является наименьшим в матрице');
end.
-
Вопросы ответы
Статьи
Информатика
Статьи
Разные вопросы.
Математика.
Физика.
Геометрия.
Разные вопросы.
Обществознание.
Математика.
Химия.
Русский язык.
Разные вопросы.