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

[Dimon4ic]

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

Сообщение отредактировано: Dimon4ic - 10.06.2009 19: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 8:54

[Lapp]

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

s:=0;

[sheka]

я и не забыл!

зы. за последние 2 дня я увидел столько прозьб типа "помогите решить задачу: вывести последовательность 10 8 6 4 2 0". пишешь как( for i:=5 downto 0 do write(2*i:3); ), а у тебя просят написать всю задачу!
знаю, что в программировании я не особо силен, но мне лично обидно. человек хоть раз же должен открыть книгу.ну хоть на 10 странице и прочитать, что программа начинается begin, а заканчивается end. и что перед begin надо сделать инициализацию переменных var i:integer;.