Для пользы дела запусти такую программу:
uses Crt;
const N=5;
type Vec=array [1..N, 1..N] of integer;
var i, j , k: integer;
A: Vec;
begin
ClrScr;
for i:=1 to N do
for j:=1 to N do
A[i,j]:=1000;
k := 0;
for i:=1 to N do
for j:=N-i+1 to N do
begin
k:= k + 1;
A[i,j]:= k;
end;
for i:=1 to N do
begin
for j:=1 to N do
Write (A[i,j]:5);
WriteLn;
end;
ReadLn;
end.
Минимальное значение имеет элемент A[1; N] и он равен 1.
Правильный ответ 2) A[1, N]