Question

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

Answer 1

uses crt;
const n=3;
var
c:array [1..n,1..n] of integer;
min,i,j,s,e:integer;
Begin
clrscr;
min:=10000;
s:=0;
for i:=1 to n do
 for j:=1 to n do
  begin
  write('C[',i,',',j,']: ');
  readln(c[i,j]);
  end;
clrscr;
for i:=1 to n do begin
 for j:=1 to n do
  write(c[i,j]:7);
  writeln;
  end;
for i:=1 to n do
 for j:=1 to n do
 if c[i,j]<min then
  begin
 min:=c[i,j];
 s:=i;
 end;
for j:=1 to n do
 e:=e+c[s,j];
writeln('Min:',min) ;
writeln('Summa:',e);
readkey;
end