Найти наименьшую сумму элементов строки в матрице - 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.
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д