Элементы двухмерного массива A размером NxN первоначально были равны 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;

Какой элемент массива в результате будет иметь минимальное значение?

1) A[1,1]

2) A[1, N]

3) A[N, 1]

4) A[N, N]

Для пользы дела запусти такую программу:

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]