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

[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

[Lapp]

Я подредактировал твой код, теперь диагональ будет зануляться сразу (а не потом).

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

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

  {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тьим думал, но пока еще что-то не пришла мысль как сложить их можно.

Вот так можно сделать:

  min:=-1;    // число, меньшее всех возможных сумм
  for i:=1 to n do begin
    s:=0;
    for j:=1 to n do s:=s+A[i,j];
    if s<min then begin
      mi:=i;
      min:=s
    end
  end;
  WriteLn('Min summ of ',min,' is achieved at i=',mi); 

[Redlle]

Спасибо. Вы очень помогли.
На счет правил, да действительно так выглядит нагляднее.