В данной действительной квадратной матрице порядка п найти сумму элементов строки, в которой расположен элемент с наименьшим
Вопрос посетителя
В данной действительной квадратной матрице порядка п найти сумму элементов строки, в которой расположен элемент с наименьшим значением. Предполагается, что такой элемент единственный.
Ответ эксперта
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:=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