Определить сумму чисел в каждой строке матрицы

05.10.2011, 20:53. **Показов** 1046. **Ответов** 2

Студворк — интернет-сервис помощи студентам

В матрице A[1..n, 1..m] определить сумму чисел в каждой строке и строку с минимальной суммой вывести на экран. помогите пожалуста. срочно надо.

@!.Ap0$T0L.! · 05.10.2011, 21:42

Pascal

var a:array [1..100,1..100] of longint;
  s:array[1..10000] of longint;
  n,m,j,i,t,l :Longint;
begin
  readln(n,m);
  for i:=1 to n do
   for j:=1 to m do
   read(a[i,j]);
  for i:=1 to  n do
    for j:=1 to m do
     s[i]:=a[i,j] +s[i];
  t:=s[1]; l:=1; 
  for i:=2 to  n do
   if s[i]<t then begin t:=s[i]; l:=i;end;
   for i:=1 to m-1 do
   write(a[l,i],' ');
   writeln(a[l,m]);
end.

06.10.2011, 09:00

Спасибо большое за код,а можешь поподробнее расписать что к чему?

Добавлено через 27 минут
как то странно она работает

Apistarhoz
		1
	Определить сумму чисел в каждой строке матрицы 05.10.2011, 20:53. Показов 1046. Ответов 2 Метки нет (Все метки) В матрице A[1..n, 1..m] определить сумму чисел в каждой строке и строку с минимальной суммой вывести на экран. помогите пожалуста. срочно надо.

Apistarhoz
	06.10.2011, 09:00	3
	Спасибо большое за код,а можешь поподробнее расписать что к чему? Добавлено через 27 минут как то странно она работает

Опции темы

Определить сумму чисел в каждой строке матрицы

Решение