Дана действительная квадратная матрица порядка n Найти наибольше из значений элементом расположеных в заштрихованой части матрицы.

var i,j,n:integer;
c:array[1..100,1..100] of integer;

max:=c[1,1];

begin
readln(n);
For i:=1 to n do
for j:=1 to n do
c[i,j]:=random(99)+1;
for i:=1 to n do
begin

for j:=1 to n do
write(c[i,j]:5);
writeln;
end;
if (i>=j) and ((i+j)<=(n+1)) or
(i<=j) and ((i+j)>=n+1) then
begin
if max writeln(max);
end;

end.


Не могу понять почему максимум становится всегда последний элемент матрицы хотя в матрице ( в выделеной области) есть значения больше . Помогите найти ошибку или если ошибок оченьь много напишите готовый код к заданию. Заранее спасибо

Скачайте PascalANC.Net и "копирните" в него. Времени на это потратите очень немного. Ваш максимум, как я уже говорил, был плох существованием вне цикла, а также обрезанным оператором выбора, который вы наверное неправильно скопировали и лишили ответчика возможности до конца разглядеть вашу логику. Я отметил, что не проверял ваши if-ы, и честно сходу не могу сказать, зачем вы делаете (i+j)<=(n+1) и т.д. Здесь уже должен быть ваш, как разработчика, ответ "Почему плох?"

Вы просили одним из вариантов ответа готовый код для выполнения задания - я вам его предоставил.

она у меня виснет при запуске ..пробывал и перезапускать и удалять и чистить один фигспасибо

Покажите, что компилятор пишет (снизу в АBC вкладки, где окно вывода и проч). Только что скопировал отосланное вам в пустой файл и запустил, всё работает.

" При загрузке содержимого файла гостя произошла неизвестная ошибка на сервере" 'это онлайновый. а такой у меня виснет на любой програме которую делаю и запускаю просто виснет и не отвечает