Массив., Есть наработки, прошу помочь. Опции

[Redlle]

Здравствуйте. Спасибо, что заглянули.
Вот условие задачи по которой будет вопрос:

" Имеется k селений. Если в селении i расположена больница, то поездка в се-
ление j займет время a[i, j] . Найти номер селения, в котором выгоднее всего
разместить больницу (суммарное время поездок из него во все другие селения
должно быть минимальным). "

Так вот. Что-то не получается занулить элементы матрицы по диагонали. т.е. у которых как я думаю i=j.
Для чего это нужно, объясняю в виде алгоритма с примером:

1) Задаем случайным образом массив.

1/2/3 это как пример селений.
___1 2 3

1__1 7 3
2__5 6 8
3__2 3 7

2) Зануляем массив по диагонали. (i=j) {На примере, из села 1 в село 1 расстояние 0}

___1 2 3

1__0 7 3
2__5 0 8
3__2 3 0

3) Складываем элементы в каждой строке.

___1 2 3

1__0 7 3 {0+7+2=9}
2__5 0 8 {5+0+8=13}
3__2 3 0 {2+3+0=5}

4)Выводим результат суммы каждой строки ввиде Расстояние 1 =...

Селение 1 расстояние 9
Селение 2 расстояние 13
Селение 3 расстояние 5

5) Находим из суммы min и выводим его как кратчайшее расстояние в котором и надо построить больницу.
селение 3 расстояние 5 - минимально, строим больницу.

Program ex;
Const   max=10;
Var     i,j,k,n:integer;
          A: array [1..max,1..max] of real;

BEGIN

{A_Enter}
 RANDOMIZE;
 WriteLn('Введите размер массива < 10.');
 ReadLn(n);
  for i:=1 to n do
  for j:=1 to n do
 A[i,j]:=random(10);

 If i=j then j:=0; i:=0; {не знаю как занулить}

{A_Output}
 WriteLn('Селения');
 for i:=1 to n do
 Begin
  WriteLn;
  for j:=1 to n do
  Write(A[i,j]0);
 End;
ReadLn;
END.

Вообщем: пункты 2 и 3 не получается сделать, над 3тьим думал, но пока еще что-то не пришла мысль как сложить их можно.

Помогите пожалуйста, буду очень благодарен

Сообщение отредактировано: Redlle - 20.12.2010 23:23