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

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

Задать свой вопрос
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] 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.

Дарья
А можно пожалуйста чтоб здесь тоже матрица сама строилась?)
Pavel Bokojarov
щас минут через 5 сделаю
Vasilij Shevrakov
Хех решение стало чуток больше и я не могу его в коментарии сбросить ибо больше 500 знаков
Miha
pastebin . com / F71G1jka перейди на этот веб-сайт и убери прабелы из ссылки там на веб-сайте будет код
Леонид Анатовский
Он почему то не верно ответы пишет... Всегда выдаёт что является наибольшим и минимальным, но это не так
Трофимович Руслан
Нет все так верно, смотри там очень махонькая возможность того что сумма основной диагонали будет меньше чем хоть какое число из матрицы и с минимальным там точно так же
Владик Брязгун
ой не сумма а сам элемент
Валера Миргазизов
vk . com / fefemf10 напиши мне в извещения что-то, я для тебя скрины отправлю почему так(удали из ссылки пробелы)
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт