Найти минимальное значение среди сумм элементов всех строк матрицы

@Yuray · Регистрация: 19.12.2012

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

Дана целочисленная матрица размера 5х10. Найти минимальное значение среди сумм элементов всех ее строк.

@CodeR · 02.02.2013, 08:15

Pascal

Const n=5;m=10;
Var A:array[1..n,1..m] of integer;
    i,j,s,imin,min:integer;
Begin
    For i:=1 to n do
    Begin
      For j:=1 to m do
      Begin
        A[i,j]:=random(31)-15;
        write(A[i,j]:4);
      End;
      writeln;
    End;
    imin:=1;
    For j:=1 to m do
     min:=min+A[1,j];
    For i:=2 to n do
    Begin
      s:=0;
      For j:=1 to m do
       s:=s+A[i,j];
      if s<min then 
      Begin
        min:=s;
        imin:=i;
      End;
    End;
    writeln('Строка с Min суммой = ',imin,' там сумма = ',min);
End.

@Yuray 0 / 0 / 0 Регистрация: 19.12.2012 Сообщений: 17
		1
	Найти минимальное значение среди сумм элементов всех строк матрицы 01.02.2013, 22:05. Показов 2111. Ответов 1 Метки нет (Все метки) Дана целочисленная матрица размера 5х10. Найти минимальное значение среди сумм элементов всех ее строк. 0

	02.02.2013, 08:15

Найти минимальное значение среди сумм элементов всех строк матрицы

Решение