Вот условие задачи по которой будет вопрос:
" Имеется 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тьим думал, но пока еще что-то не пришла мысль как сложить их можно.
Помогите пожалуйста, буду очень благодарен