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

[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

[volvo]

дублирования быть не должно!

Тогда так...

const
  n = 6;
  a: array[1 .. n, 1 .. n] of integer =
    (
     (1, 2, 3, 4, 5, 6),
     (1, 2, 3, 4, 5, 6),
     (1, 2, 3, 4, 5, 6),
     (1, 2, 3, 4, 5, 6),
     (1, 2, 3, 4, 5, 6),
     (1, 2, 3, 4, 5, 6)
    );

var
  i, j: integer;
  k, count: integer;

  arr: array[1 .. 4 * n] of integer;

procedure add_buffer(x: integer);
begin
  inc(count);
  arr[count] := X;
end;

begin
  count := 0;

  for i := 1 to n do add_buffer(a[1, i]);
  for j := 2 to pred(n) do
    add_buffer(a[j, n]);
  for i := n downto 1 do add_buffer(a[n, i]);
  for j := pred(n) downto 2 do
    add_buffer(a[j, 1]);

  for i := 1 to count do
    write(arr[i]:4);
  writeln;

end.