Найти сумму елементов

← →
Wor (2007-10-27 01:44) [0]

Помогите с таким заданием

Найти сумму елементов столбика в котором находится
минимальный елемент. Данна матрица размером 3х3.

Вот моя программка. Я нахожу минимальный елемент,
но я незнаю как в этом столбике подсичитать сумму.
Как это сделать?

program Project1;

{$APPTYPE CONSOLE}

uses
SysUtils;

var
matrix : array [1..3,1..3] of Integer;
i,j,min: Integer;

begin

// Заполняю матрицу

for I := 1 to 3 do
for j := 1 to 3 do
begin
write("M","[",i,",",j,"] = ");
readln(matrix[i,j]);
end;

// пусть первый елемент будет минимальный

min := matrix[1,1];

// поиск минимального елемента

for I := 1 to 3 do
for j := 1 to 3 do
begin
if min > matrix[i,j] then min := matrix[i,j];
end;

writeln("min = ",min);

readln;
end.

← →
DrPass © (2007-10-27 02:12) [1]

> Вот моя программка. Я нахожу минимальный елемент

Когда сохраняешь элемент, вместе с ним сохраняй и номер его столбца. Вот по этому номеру потом будешь считать сумму

← →
Германн © (2007-10-27 02:29) [2]

Осталось только определиться который из индексов массива "столбик", а который "строчечка".
:)

← →
DrPass © (2007-10-27 02:39) [3]

> Германн © (27.10.07 02:29) [2]

I - это столбик. Это инь и янь программирования!

← →
Германн © (2007-10-27 03:00) [4]

> DrPass © (27.10.07 02:39) [3]
>
>
> > Германн © (27.10.07 02:29) [2]
>
> I - это столбик. Это инь и янь программирования!
>

В программировании нет этих терминов. Программирование слишком далеко от философии, тем более китайской. Или не дай боже японской! :-)

← →
Wor (2007-10-27 10:31) [5]

НУ и как мне дальше искать. ТАк чтоли.

for I := 1 to 3 do
S := S + matrix[i];

← →
Putnik (2007-10-27 11:41) [6]

Изменить
if min > matrix[i,j] then min := matrix[i,j];
на
if min > matrix[i,j] then begin min := matrix[i,j];index:=j;end;

А дальше
S:=0;
for I := 1 to 3 do
S := S + matrix[i,index];

Найти сумму елементов Найти похожие ветки