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

[Dimon4ic]

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

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

[sheka]

 
for y:=1 to m do
  for x:=1 to n do readln(a[y,x]); 

for y:=1 to m do begin
  for x:=1 to n do write(a[y,x]:5);
  writeln;
  end;

s:=0;
for x:=1 to n do s:=s+a[1,x]+a[m,x];
for y:=2 to m-1 do s:=s+a[y,1]+a[y,n];

Сообщение отредактировано: sheka - 11.06.2009 12:54

[Lapp]

sheka, не забывай инициализировать переменную s перед суммированием:

s:=0;