Задачка на матрицу.

[Саня895]

Доброе время суток, уважаемые. У нас в школе проблемка с программированием возникала . Никто с класса задачу решить не может, пытался подойти к ней со всех сторон, ничего не получилось, а учитель, сказал что 4 в полугодии никому не поставит если не решим.
Вообщем задача такая:
Написать матрицу KxK состоящую из целых чисел от N в обратном порядке (т.е. как я понял N-1,N-2 и т.д.). Подсчитать суммы столбцов и строк. Вывести полученный результат в виде:
Мат-ца целых чистел
* 1 2 3 ... сум
1 n11 n12 n13 Сум1
2 n21 n22 n23 Сум2
3 n31 n32 n33 Сум3
. ... ... ... ...
Сум. Сум1 Сум2 ...

Помогите плиз, у мну друг говорит что они такое в инсте не решают, хотя прогеры=((( Надеемся на вас! Заранее спасибо!

[puporev]

Эта задача не столько трудна для решения, сколько требует повозиться с оформлением. Приведу вам общее решение, а оформление для k=5, N=100.

Код без внешнего оформления таблицы.

//Вводим значения k= N= .
//Создаем матрицу по заданному условию.
for i:=1 to k do
  begin
   for j:=1 to k do
      begin
        a[i,j]:=N-(i-1)*k-j+1;
      end;
  end;
//Считаем суммы каждой строки и сохраняем их в массиве.
for i:=1 to k do
  begin
   for j:=1 to k do
      begin
        b[i]:=b[i]+a[i,j];
      end;
end;
//Считаем суммы по каждому столбцу и сохраняем их в массиве.
for j:=1 to k do
  begin
   for i:=1 to k do
      begin
        c[j]:=c[i]+a[i,j];
      end;
 end;
//Вставляем суммы по строкам последним столбцом в матрицу.
j:=k+1;
for i:=1 to k do
  begin
   a[i,j]:=b[i];
  end;
//Выводим на экран матрицу без последней строки (сумма по столбцам).
for i:=1 to k do
  begin
   for j:=1 to k+1 do
     write(a[i,j]:4);
     writeln;
    end;
//Выводим последнюю строку.
for i:=1 to k do
  write(c[i]:4);
readln;
end.

Пример более-менее оформленной таблицы для k=5 и N=100 приведен во вложении.
Задача вашего класса сделать оформление в общем виде.