задача

[Влад735]

Дана матрица А(5,5) заменить все четные элементы ниже побочной диагонали на 0. помогите решить пожайлуста.

[VIK_aka_TOR]

вот вам теория...

а сейчас непосредственно к задаче...
Побочная диагональ:
Побочная диагональ также определяется только у квадратных матриц и задается следующей формулой:

A[N,MAX-N+1], где N-число от 1 до максимального значения в данной матрице; MAX - размерность матрицы

Как определить, находится ли элемент ниже\на\выше главной диагонали:
Для этого мы воспользуемся формулой главной диагонали - A[N,N].

Если X>Y Тогда элемент выше главной диагонали.
Если X=Y Тогда элемент на главной диагонали.
Eckb X<Y Тогда элемент ниже главной диагонали.

Аналогично для побочной диагонали, только условие изменяется согласно формуле главной диагонали:

Если X>Y-MAX+1 Тогда выше
Если X=Y-MAX+1 Тогда на
Если X<Y-MAX+1 Тогда ниже

и тут 2 способа решения...
первый... примитив из примитивов...

for y := 1 to n do
for x := 1 to n do
if ( (x < y - n + 1) and ( not ord(a[x,y]) ) ) then
 a[x,y] := 0;

  For Y:=1 to n do
  Begin 
    For X:=1 to n do
     Write(a[X,Y] : 3);
    Writeln;
  End;

и второй немного изощреннее...

for i:=1 to n do
for j := n - i + 1 to n do
   if (not ord(a[i,j])) then
     a[i,j] := 0;

for i:=1 to n do
begin
  for j:=1 to n do
    write(a[i,j]:3);
  writeln;
end;