Среди строк заданной целочисленной матрицы A(N,M) найти строку с максимальной суммой элементов

@pomochmne · Регистрация: 16.01.2014

2. Среди строк заданной целочисленной матрицы A(N,M) найти строку с максимальной суммой элементов.

@ildwine · 16.01.2014, 18:00

Pascal

const
  n = 5;
  m = 6;
var
  a : array [1..n, 1..m] of integer;
  i, j, s, max, imax : integer;
begin
  max := -32768;
  randomize;
  for i := 1 to n do
  begin
    s := 0;
    for j := 1 to m do
    begin
      a[i,j] := random(100);
      write(a[i,j]:4);
      s := s + a[i,j]
    end;
    if s > max then
    begin
      imax := i;
      max := s
    end;    
    writeln
  end;
  writeln('строка ', imax, ' имеет максимальную сумму элементов равную: ', max);    
  readln
end.

@pomochmne 0 / 0 / 0 Регистрация: 16.01.2014 Сообщений: 11
		1
	Среди строк заданной целочисленной матрицы A(N,M) найти строку с максимальной суммой элементов 16.01.2014, 17:02. Показов 1860. Ответов 1 Метки нет (Все метки) 2. Среди строк заданной целочисленной матрицы A(N,M) найти строку с максимальной суммой элементов. 0

Опции темы

Среди строк заданной целочисленной матрицы A(N,M) найти строку с максимальной суммой элементов

Решение