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

[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 17:45

[AruNimotsi]

Допустим массив NxM элементов (а не 6х6)
в общем случае поиск можно былобы организовать tak

Код

Fori:=1 to n do
  forj:=1 to m do
  if (i=1)or(j=1)or(i=n)or(j=m) then begin end;

и заметьте - никакого дубляжа