Определить номер столбца с максимальной суммой элементов

@Craix · Регистрация: 10.03.2014

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

Определить номер столбца с максимальной суммой элементов массива и вывести эту сумму.

@light_girlz · 27.04.2014, 15:16

Возможный вариант...

Pascal

uses crt;
Const nmax=100;
Var A:array[1..nmax,1..nmax] of integer;
    i,j,n:byte;
    s,max,k:integer;
Begin
    write('Введите 1<=n<=',nmax,': ');
    readln(n);
    writeln('Матрица A');
    for i:=1 to n do
    begin
      for j:=1 to n do
      begin
        A[i,j]:=random(31)-15;
        write(A[i,j]:4);
      End;
      writeln;
    End;
    
    for i:=1 to n do
    begin
      s:=0;
      for j:=1 to n do
        s:=s+a[j,i];
      if i=1 then
      begin
       max:=s;
       k:=i;
      end
      else
       if s>max then
       begin
        max:=s;
        k:=i;
       end;
    end;
    writeln('Максимальная сумма в столбце ', k);
    writeln('Максимальная сумма= ', max);
End.

@Craix 0 / 0 / 0 Регистрация: 10.03.2014 Сообщений: 10
		1
	Определить номер столбца с максимальной суммой элементов 27.04.2014, 12:47. Показов 1501. Ответов 1 Метки нет (Все метки) Определить номер столбца с максимальной суммой элементов массива и вывести эту сумму. 0

	27.04.2014, 15:16

Опции темы

Определить номер столбца с максимальной суммой элементов

Решение