Найти сумму элементов того столбца массива а

[angelina13777]

Найти сумму элементов того столбца массива а (3,3), в котором расположен минимальный элемент матрицы

[Sciv]

И Вам здравствуйте.

[BETEP32]

procedure TForm1.Button1Click(Sender: TObject);

const
  //Число строк и столбцов в массиве.
  N = 3;
var
  //Массив.
  Arr : array[1..N, 1..N] of Integer;
  //Индексы массива.
  i, j, i1, j1  : Integer;
  //Индексы, соответствующие максимальному элементу на главной и побочной диагоналях.
  NumTmp        : Integer;
  //Строка для распечатки результатов.
  StrTmp        : String;
begin
  
  //Если N - чётное, то прерываем задачу.
  if not Odd(N) then begin
    Raise Exception.Create('Число строк и столбцов массива чётное! Выполнение прервано.');
  end;

  //Очищаем Мемо.
  Memo1.Clear;
 
  //Инициализируем массив.
  //Заполняем массив возрастающими неповторяющимися значениями.
  NumTmp := -(N * N) div 2;
  for i := 1 to N do begin
    for j := 1 to N do begin
      Inc(NumTmp);
      Arr[i, j] := NumTmp;
    end;
  end;
 
  //Инициализируем генератор случайных чисел.
  Randomize;
  //Перемешиваем элементы в массиве.
  for i := 1 to N * N do begin
    i1 := 1 + Random(N); //Случайный индекс из диапазона (1 + 0)..(1 + N - 1) = 1..N.
    j1 := 1 + Random(N);
    NumTmp := Arr[1, 1];
    Arr[1, 1] := Arr[i1, j1];
    Arr[i1, j1] := NumTmp;
  end;

  //Распечатка исходного массива.
  Memo1.Lines.Add('Исходный массив:');
  for i := 1 to N do begin
    StrTmp := '';
    for j := 1 to N do begin
      if StrTmp <> '' then begin
        StrTmp := StrTmp + Char(9);
      end;
      StrTmp := StrTmp + IntToStr( Arr[i, j] );
    end;
    Memo1.Lines.Add(StrTmp);
  end;
  i:=Arr[1, 1] +Arr[2, 1] +Arr[3, 1] ;
  j:=Arr[1, 2] +Arr[2, 2] +Arr[3, 2] ;
  I1:=Arr[1, 3] +Arr[2, 3] +Arr[3, 3] ;

  Memo1.Lines.Add('итог');
  StrTmp := IntToStr( i)+'	'+ IntToStr( j)+'	'+IntToStr( i1);
  Memo1.Lines.Add(StrTmp);

if i>j then begin
        if i<i1 then NumTmp := i
        else NumTmp :=i1;
    end
    else begin
        if j<i1 then NumTmp := j
        else NumTmp := i1;
     end;
  Memo1.Lines.Add('сумма наименьшего столбца  '+ IntToStr(NumTmp));
  end;
end.

[angelina13777]

а можно ее написать проще??)
желательно намного проще.
заранее спасибо

[Mad_Cat]

{обьявление переменных}
begin
{ввод матрицы}
im:=1;jm:=1;
For i:=1 to 3 do
for j:=1 to  3 do
if a[i,j]<a[im,jm] then begin im:=i;jm:=j;end;
s:=0;
for i:=1 to 3 do
s:=s+a[i,jm];
writeln(s);
end.

[angelina13777]

большое спасибо!