как найти координаты элементов

[Романн]

тут есть задача

дана матрица.найти сумму наименьших элементов каждой строоки и их координаты.

сумму нашел, как координаты найти. подскажите

[Stilet]

Ану покаж как ты сумму искал.
Подсказка: координаты это те переменки которые ты в циклах задействовал. Как только нашел наименьший элемент - запоминай в еще две переменки его номера в строке и колонке.

[hardorsoft]

номер строки наименьшего элемента это у-координата, номер столбца-х.
Вот и все.

[Романн]

program z1;
uses crt;
const n=3;
var a: array [1..n,1..n] of integer;
i,j,min,sum : integer;
begin
clrscr;
writeln ('ввод массива');
for i:=1 to n do
for j:=1 to n do
begin
read (a[i,j]);
end;
writeln ('исходная матрица:');
for i:=1 to n do
begin
for j:=1 to n do
write (a[i,j],' ');
writeln;
end;
sum:=0;
for i:=1 to n do
begin
min:=a[i,1];
for j:=1 to n do
if min>a[i,j] then min:=a[i,j];
sum:=sum+min;
end;
writeln (sum);
readln;
end.

[eoln]

Меняй

Сообщение от Романн

for i:=1 to n do
begin
min:=a[i,1];
for j:=1 to n do
if min>a[i,j] then min:=a[i,j];
sum:=sum+min;
end;

на

for i:=1 to n do
begin
  min:=a[i,1];
  y:=i; x:=1;
  for j:=1 to n do
  if min>a[i,j] then begin min:=a[i,j]; y:=i; x:=j; end;
  writeln('(',x,',',y,')');
  sum:=sum+min;
end;

Ну и var x,y:integer; вначале не забудь.

P.S. Случай когда несколько минимальных значений в строке нет