Разработать программу в делфи

[Snomens]

Разработать программу решения задачи, в которой заменить нулями все элементы, расположенные на побочной диагонали матрицы размером 4х4, состоящий из элементов целого типа.

[NetSpace]

var a: array[1..4,1..4] of Integer;
ну и делай цикл по всем I от 1 до 4 //это строки
в нём ещё один цикл по всем J от 1 до 4 //это столбцы
а уж в нём меняешь все элементы a[I,4-J+1] на 0.
конец цикла J
конец цикла I

[Serge_Bliznykov]

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

ну и делай цикл по всем I от 1 до 4 //это строки
в нём ещё один цикл по всем J от 1 до 4 //это столбцы
а уж в нём меняешь все элементы a[I,4-J+1] на 0.

это неверно. двух циклов тут не нужно.

главная диагональ - for i:=1 to n do A[i,i] ....
побочная диагональ for i:=1 to n do A[i,n-i+1] ....

[NetSpace]

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

[Serge_Bliznykov]

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

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

Вы меня не поняли.
ладно, тогда поясню.

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

ну и делай цикл по всем I от 1 до 4 //это строки
в нём ещё один цикл по всем J от 1 до 4 //это столбцы
а уж в нём меняешь все элементы a[I,4-J+1] на 0.

ваша формула a[I,4-J+1] верна только в том случае, когда I и J равны.
в других случая полученный элемент не лежит на побочной диагонали.

тогда уже, если очень хочется два вложенных цикла (хотя тут вложенный цикл не нужен):

for i:=1 to 4 do
  for j:=1 to 4 do 
   if i=j then  a[I,4-J+1] := 0;