Паскаль. Задача о квадратной матрице.

[Reinik]

Паскаль. Задача о квадратной матрице.

помогите плз задачку в паскале решить =( задание следующее:
дана действительная квадратная матрица порядка n (я её 4х4 сделала). Найти наибольшее из значений элементов, расположенных в заштрихованной части матрицы.
А заштрихована там правая часть относительно главной диагонали. Как её в турбо паскале записать я не знаю =(((

Reinik, не следует лезть в чужие темы! Создавайте свои.
Модератор.

 

[shrek=)]

uses crt;
var
a:array [1..100,1..100] of real;
i,j,n:integer;
max:real;
begin
clrscr;
max:=-10000000;
writeln ('enter the dimention of the matrix');
readln (n);
for i:=1 to n do
for j:=1 to n do begin
writeln ('a[',i,',',j,']');
readln (a[i,j]);
end;
for i:=1 to n do
for j:=i to n do begin
if a[i,j]>max then max:=a[i,j];
end;
for i:=1 to n do Begin
for j:=1 to n do
write (a[i,j]:8:2);
Writeln;
end;
writeln ('max element=',max:8:2);
readln
end.

 

[Reinik]

Спасибо!!!

 

[Reinik]

а разве там не надо будет через randomize всю матрицу заполнять?

 

[AlexZir]

Вы же написали, что вам дана матрица

 

[Reinik]

Дана, но у меня не указаны элементы матрицы ( и я не могу понять, где в тексте программы указано, то что ищется максимальное число из части матрицы, тут разве не из всей?

 

[Vladimir_S]

Дана, но у меня не указаны элементы матрицы ( и я не могу понять, где в тексте программы указано, то что ищется максимальное число из части матрицы, тут разве не из всей?

Нет, не из всей, а именно из части. И видно это в 11-й снизу строке:

for j:=i to n do begin

Если бы было из всей, то строка выглядела бы так:

for j:=1 to n do begin

 

[Reinik]

Клёво...спасибо =)

 

[Reinik]

У меня последний вопрос, зачем мы max:=-10000000?

 

[Vladimir_S]

У меня последний вопрос, зачем мы max:=-10000000?

Ну это такой прием - дать начальное значение искомого максимума заведомо меньшее, чем все элементы массива.