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

@Ptiza · Регистрация: 11.11.2010

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

Дана матрица размера 5 x 10. Найти минимальное значение среди сумм элементов всех ее строк и номер строки с этим минимальным значением. Процедурой
Сколько не мучаюсь, а через процедуру не могу....

@TAVulator · 12.11.2010, 00:33

Сообщение от Ptiza

Сколько не мучаюсь, а через процедуру не могу....

покажи тогда без процедуры, может чего придумаем.

@crocodilys · 12.11.2010, 00:38

Pascal

var     a:array[1..5,1..10] of integer;
        i,j,min,mini,c:integer;
 
Procedure FindSum(x:integer);
var     i:integer;
Begin
 c:=0;
 for i :=1 to 10 do
   c:=c+a[x,i];
 end;
 
 
Begin
  randomize;
  min:=10000;
  for i:=1 to 5 do
    for j:=1 to 10 do
      a[i,j]:=random(100);
  for i:=1 to 5 do begin
    findsum(i);
    if c<min then begin
      min:=c;
      mini:=i;
      end;
    end;
  writeln('Minimalnoe zna4enie ',min,' v stroke ',mini);
  end.

@Ptiza 0 / 0 / 0 Регистрация: 11.11.2010 Сообщений: 14
		1
	Найти минимальное значение среди сумм элементов всех строк матрицы 12.11.2010, 00:29. Показов 4227. Ответов 2 Метки нет (Все метки) Дана матрица размера 5 x 10. Найти минимальное значение среди сумм элементов всех ее строк и номер строки с этим минимальным значением. Процедурой Сколько не мучаюсь, а через процедуру не могу.... 0

@TAVulator ⚽ 4190 / 1291 / 237 Регистрация: 27.07.2009 Сообщений: 3,962
	12.11.2010, 00:33	2
	Сообщение от Ptiza Сколько не мучаюсь, а через процедуру не могу.... покажи тогда без процедуры, может чего придумаем. 0

	12.11.2010, 00:38

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

Решение