В данной действительной квадратной матрице

[perojenko]

В данной действительной квадратной матрице порядка n, найти сумму элементов, в которой расположен элемент с наименьшим значением. Предполагается, что такой элемент единственный??

заранее спасибо

[sheka]

должно работать

min:=a[1,1];
for i:=1 to n do begin
  s:=0;
  b:=false;
  for j:=1 to n do begin
    if a[i,j]<=min then b:=true;
    s:=s+a[i,j];
    end;
  if b=true then smin:=s;
  end;

[Anatole]

sheka

должно работать

Не должно. Измените цикл

for j:=1 to n do begin
    if a[i,j]<=min then 
     begin b:=true;
     min :=  a[i,j];
     end;
    s:=s+a[i,j];
    end;

[sheka]

Не должно.

аргументируйте пожалуйста.

[sheka]

кстати, там условие некорректно написано. скорее всего, пропушено "сумму элементов строки".
тогда, вроде, у меня все правильно.

[profi]

Находим строку с наименшим элементом и суммируем элементы этой строки. Думаю это решается так:

uses crt;
var
   matr:array[1..3,1..3] of integer;
   i,j,sum,min,min_ind:integer;
begin clrscr; randomize;
for i:=1 to 3 do
for j:=1 to 3 do
    matr[i,j]:=random(10)+1;
for i:=1 to 3 do
    begin
         for j:=1 to 3 do
             Write(matr[i,j],' ');
         Writeln;
    end;
min:=matr[1,1];
for i:=1 to 3 do
for j:=1 to 3 do
    if matr[i,j]<min then
       begin
              min:=matr[i,j];
              min_ind:=i;
       end;
sum:=0;
for j:=1 to 3 do
    sum:=sum+matr[min_ind,j];
Writeln('Suma=',sum);
end.

[perojenko]

sheka это похоже преподавателя ошибка ..
похоже он как раз и имел в виду 'сумму элементов строки')
спасибо profi все работает ^^