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

@azazellka666 · Регистрация: 04.05.2011

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

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

@KaiTheCat · 23.05.2011, 13:31

Pascal

var
   a: array[1..100,1..100] of integer;
   i,j,n,m,x: byte;
   max,sum: integer;
begin
   randomize;
   write('размеры: ');
   readln(n,m);
   for i:=1 to n do
      begin
         for j:=1 to m do
            begin
               a[i,j]:=random(61)-30;
               write(a[i,j]:4);
            end;
         writeln;
      end;
   writeln;
   max:=a[1,1];
   x:=1;
   for i:=1 to n do
   for j:=1 to m do
      if a[i,j]>max then 
         begin
            max:=a[i,j];
            x:=j;
         end;
   for i:=1 to n do
      sum:=sum+a[i,x];
   writeln('сумма: ',sum);
   readln
end.

@azazellka666 0 / 0 / 0 Регистрация: 04.05.2011 Сообщений: 33
		1
	Найти сумму элементов столбца матрицы, в котором находится максимальный элемент 23.05.2011, 13:13. Показов 4945. Ответов 1 Метки нет (Все метки) дан двумерный массив найти сумму элементов столбца в котором находится максимальный элемент 0

	23.05.2011, 13:31

Опции темы

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

Решение