Задача на массив

[Casper098]

Дана матрица A(6*6).Определить наибольший из элементов матрицы,лежащих ниже её диагонали.
Решить нужно в Pascal.
Заранее спасибо.

[NetSpace]

for i=1 to 6 do
begin
for j:=1 to 6 do
begin
   if(i<j)then //если (i<=j),то диагональные элементы тоже будут браться в расчёт
     begin
       //вот тут ищете максимальный элемент из массива a[i][j], или какой-там у вас...
    end
end;
end;

[Casper098]

То есть вот так будет?

Program 123;
uses crt
var a:array [1..6] of integer;
i,j,max:integer;
begin
randomize
writeln('vvedite elementi massiva:');
max:=0;
for i:=1 to 6 do
for j:=1 to 6 do
begin
a[i,j]:=random (12);
if (i<j) then
begin
max:=max + a[i,j]
write (a [i,j])
end;
writeln;
end;
writeln('max= ');
end;
end.

снова исправил,ну думаю не правильно.
и все же,
//вот тут ищете максимальный элемент из массива a[i][j], или какой-там у вас...
а как его найти,записать?

[Rin]

Program 123;
uses crt
var a:array [1..6] of integer; Вот тут ошибка. Почитай, как описываются двумерные массивы(матрицы).
i,j,max:integer;
begin
randomize Каждый оператор заканчивается так ";"
writeln('vvedite elementi massiva:');
max:=0;
for i:=1 to 6 do
for j:=1 to 6 do
begin
a[i,j]:=random (12);
if (i<j) then   Я БЫ ДОПИСАЛ К УСЛОВИЮ and(max<a[i,j])
begin
max:=max + a[i,j]Каждый оператор заканчивается так ";". Тут ты ищешь сумму
 всех элементов массива, которые ниже диагонали, а тебе
 надо найти максимальный из них.
write (a [i,j])    Каждый оператор заканчивается так ";"
end;
writeln;
end;
writeln('max= ');   writeln('max= ',max); вот так будет правильней)
end;
end

[TinMan]

Сообщение от Rin

write (a [i,j])    Каждый оператор заканчивается так ";"
end;

Это не совсем верно. ";" _разделяет_операторы_. Если за оператором идет end (как в этом случае), то ставить ";" не обязательно.

[Rin]

Век живи, век учись. То, что разделяет - это понятно. Но не знал того, что если после оператора стоит end, то разделитель не обязателен.

[eoln]

Зачем там вообще складывать?

Сообщение от NetSpace

for i=1 to 6 do
begin
for j:=1 to 6 do
begin
   if(i<j)then //если (i<=j),то диагональные элементы тоже будут браться в расчёт
     ...

Скорее i>j, иначе при выводе переворачивать матрицу придётся, т.е. цикл проходить не так как при заполнении - сначала по j, а потом по i, - ну это так, дело цвета и вкуса )
А вот лишнии условия можно убрать. В первой строке нет элементов ниже диагонали (главной), во второй - 1 число, в третьей 2 числа и т.д.

max := a[2, 1];
for i := 3 to 6 do
  for j := 1 to i-1 do
    if a[i, j] > max then max := a[i, j];
write(max);

где i - строки, j - столбцы.

[Casper098]

зачем max принимать max := a[2, 1];?
если можно max принять max:=-1
у меня же
a[i,j]:=random (12);
следовательно числа беруться от 0 до 11
я думал будет так

Program 123;
uses crt
var a:array [1..6,1..6] of integer;
i,j,max:integer;
begin
randomize
writeln('vvedite elementi massiva:');
max:=-1;
for i:=1 to 6 do
for j:=1 to 6 do
begin
a[i,j]:=random (12);
if (i>j) then
begin
if max<a [i,j] then;
max:=a[i,j];
write (a [i,j])
end;
writeln;
end;
writeln('max= ',max);
end;
end.

или
for i:=1 to 6 do
for j:=1 to 6 do
нужно заменить на?
for i := 3 to 6 do
for j := 1 to i-1 do
я что-то совсем запутался,напишите пожалуйста как будет выглядить полностью рабочая программа,за ранее спасибо.

[Rin]

В товём коде вместо

max:=-1;
for i:=1 to 6 do
for j:=1 to 6 do
begin
a[i,j]:=random (12);
if (i>j) then
begin
if max<a [i,j] then;
max:=a[i,j];
write (a [i,j])
end;
writeln;
end;

нужно вставить

for i:=1 to 6 do   for j:=1 to 6 do  a[i,j]:=random (12);
max := a[2, 1];
for i := 3 to 6 do
  for j := 1 to i-1 do
    if a[i, j] > max then max := a[i, j];
write(max);

[Casper098]

max := a[2, 1]
объясните пожалуйста хотя бы для чего принимаем такое значение?
for i := 3 to 6 do
for j := 1 to i-1 do
и как это понять тоже?