Найти наименьшую сумму элементов строки в матрице - Pascal
Формулировка задачи:
Составить функцию исходными данными которой являются два массива X(n) и Y(n) с заданным числом элементов (или один из них) или матрица A(n,n). Разработать программу для отладки заданных функций.(Наименьшая сумма строки в матрице A(n,n)).
Решение задачи: «Найти наименьшую сумму элементов строки в матрице»
textual
Листинг программы
const
n=10;
type
TMatr = array [1..n,1..n] of Real;
function MinRowSum(const m: TMatr): Real;
var
i, j: Integer;
s, r: Real;
begin
r:=0;
for j:=1 to n do r:=r+m[1,j];
for i:=2 to n do begin
s:=0; for j:=1 to n do s:=s+m[i,j];
if r>s then r:=s;
end;
MinRowSum:=r;
end;
{ отладочная часть }
var
a: TMatr;
i, j: Integer;
s: Real;
begin
Randomize;
for i:=1 to n do begin
s:=0;
for j:=1 to n do begin
a[i,j]:=-50+Random(101); s:=s+a[i,j]; Write(a[i,j]:4:0);
end; WriteLn('|',s:6:0);
end;
WriteLn('Минимальная сумма строки: ',MinRowSum(a):6:0);
end.