задача на двумерный массив, подскажите Опции

[Dimon4ic]

подскажите умные люди пожалуйста как решить
Задачка такова характера:
Ввести с клавиатуры целочисленный двумерный массив размером N * M элементов (N. M <=4). Вывести его на экран в виде таблицы. Вычислить сумму окаймляющих элементов (т.е. элементов первой и последней строки и первого и последнего столбца).

Сообщение отредактировано: Dimon4ic - 10.06.2009 19:35

[Dimon4ic]

спасибо кто пытался, больше помощи ненада, ответ нашёлся, кому интересна, смотрите:
program test;
uses
crt;
const
n = 3;
m = 4;
var
arr : array[1..n, 1..m] of integer;
i, j, sum : integer;
begin
clrscr;

textColor(14);
writeln('Matrica imeet vid: ');
for i := 1 to n do
begin
for j := 1 to m do
begin
arr[i, j] := random(10) + 1;
write(arr[i, j]:3);
end;
writeln;
writeln;
end;

sum := 0;
for i := 1 to m do
begin
inc(sum, arr[1, i]);
inc(sum, arr[n, i]);
end;
for i := 2 to n - 1 do
begin
inc(sum, arr[i, 1]);
inc(sum, arr[i, m]);
end;

textColor(4);
writeln;
write('Summa sostavila: ', sum);

readln;
end.