Двумерный массив.

[alexeu121]

Найти номера строк матрицы А nxn, все элементы которых четные.
Найти наибольшее из значений элементов, расположенных в матрице ниже побочной диагонали.

Помогите начать пожалуйста.

[ZX Spectrum-128]

http://programmersforum.ru/showthread.php?t=70310

[alexeu121]

Сообщение от ZX Spectrum-128

http://programmersforum.ru/showthread.php?t=70310

Я задал матрицу, но не могу описать как найти наибольший элемент в области побочной диагонали и ниже нее.

begin
max:=A[i,j];
for i:=1 to n do
for j:=n-i+1 to n do

writeln('Max elementbI zaschtrichovanoi oblasti=',max);
end;

[Serge_Bliznykov]

ну, в правильном направлении идёте!

begin
 max:=A[1,n]; {берём в качестве первого максимального значения верхний элемент побочной диагонали}
 for i:=1 to n do
    for j:=n-i+1 to n do
       if A[i,j]>max then max := A[i,j];

 writeln('Max elementbI zaschtrichovanoi oblasti=',max);

вот и всё!

[alexeu121]

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

ну, в правильном направлении идёте!

begin
 max:=A[n,n]; {берём в качестве первого максимального значения верхний элемент побочной диагонали}
 for i:=1 to n do
    for j:=n-i+1 to n do
       if A[i,j]>max then max := A[i,j];

 writeln('Max elementbI zaschtrichovanoi oblasti=',max);

вот и всё!

Спасибо за подсказку, все работает.

Но первый вопрос остается актуальным:
Найти номера строк матрицы А nxn, все элементы которых четные. Serge, может поможете и с этим?

[Poma][a]

max:=A[n,n];

Очепятка.. a[1, n]

[Serge_Bliznykov]

Сообщение от Poma][a

Очепятка.. a[1, n]

ДА!! Точно! я накосячил! Акелла промахнулся!
Главное, в комментах правильно написал, а с индексом строки накосячил!
Спасибо за найденный баг!

p.s. исправлю в исходном сообщении, на будущее...

[Serge_Bliznykov]

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

Спасибо за подсказку, все работает.

Всегда пожалуйста!

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

Но первый вопрос остается актуальным:
Найти номера строк матрицы А nxn, все элементы которых четные. Serge, может поможете и с этим?

Так это же на самом деле очень просто.

for i:=1 to n do begin
  j := 1;
  while j<=n do begin
     if (A[i,j] mod 2) = 1 then Break; {проверку нечётности можно записать и так if odd(A[i,j] then ...}
     inc(j);
  end;
  if j>n then WriteLn('В строке ',i,' все элементы чётные.');
end;