Элементы матрицы расположенные по периметру Опции

[Lidroot]

Вообщем задача: Найти некоторые элементы(не вожно какие!) среди элементов матрицы, расположенных по периметру.
Я думаю это сделать гдето так:

Код

for i:=1 to 6 do
for j:=1 to 6 do
begin
if (i:=1) and (k=0) then
begin
c(count):=a[i,j];
k:=1;
inc(count);
end;
if (i:=6) and (k=0) then
begin
c(count):=a[i,j];
k:=1;
inc(count);
end;
if (j:=1) and (k=0) then
begin
c(count):=a[i,j];
k:=1;
inc(count);
end;
if (j:=6) and (k=0) then
begin
c(count):=a[i,j];
k:=1;
inc(count);
end;
end;

но мне кажется это громоздким. Может что нить еще можно сделать?

Сообщение отредактировано: Lidroot - 31.10.2005 21:45