Матрица. Подсчитать сумму каждой строки матрицы и найти максимальное значение среди полученных сумм

@bedeskabd · Регистрация: 13.03.2012

Ребята, залёт полный, сроки горят, нужна помощь, спасайте плз.

Дана действительная матрица размером n x m (n, m <10). Подсчитать сумму каждой строки
матрицы и найти максимальное значение среди полученных сумм. Заменить нулями значения
элементов матрицы, расположенные в первой строке и распечатать полученную матрицу.
Размер матрицы и ее элементы вводятся с клавиатуры. Оформить ввод и вывод матрицы.

@ermolay · 11.05.2012, 12:26

Pascal

const
  nmax=100;
var
  a: array[1..nmax,1..nmax] of integer;
  i,j,n,m,sum,max,k: integer;
begin
  randomize;
  write('Введите размеры матрицы n и m: ');
  readln(n,m);
  max:=-32768;
  writeln('Исходная матрица:');
  for i:=1 to n do
  begin
    sum:=0;
    for j:=1 to m do
    begin
      a[i,j]:=random(99)+1;
      write(a[i,j]:4);
      sum:=sum+a[i,j];
    end;
    write('  сумма: ',sum);
    if sum>max then 
    begin
      max:=sum;
      k:=i;
    end;
    writeln;
  end;
  writeln;
  writeln('Максимальная сумма - в ',k,' строке, и равна ',max);
  writeln;
  writeln('Полученная матрица:');
  for i:=1 to n do
  begin
    for j:=1 to n do
    begin
      if i=1 then a[i,j]:=0;
      write(a[i,j]:4);
    end;  
    writeln;
  end;
  readln;
end.

@bedeskabd · 11.05.2012, 12:40 **[ТС]**

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

...

Спасибо огромное, всё работает, вопросов нету.

@bedeskabd 0 / 0 / 0 Регистрация: 13.03.2012 Сообщений: 7
		1
	Матрица. Подсчитать сумму каждой строки матрицы и найти максимальное значение среди полученных сумм 11.05.2012, 11:22. Показов 2950. Ответов 2 Метки нет (Все метки) Ребята, залёт полный, сроки горят, нужна помощь, спасайте плз. Дана действительная матрица размером n x m (n, m <10). Подсчитать сумму каждой строки матрицы и найти максимальное значение среди полученных сумм. Заменить нулями значения элементов матрицы, расположенные в первой строке и распечатать полученную матрицу. Размер матрицы и ее элементы вводятся с клавиатуры. Оформить ввод и вывод матрицы. __________________ Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь 0

@bedeskabd 0 / 0 / 0 Регистрация: 13.03.2012 Сообщений: 7
	11.05.2012, 12:40 [ТС]	3
	Сообщение от ermolay ... Спасибо огромное, всё работает, вопросов нету. 0

Опции темы

Матрица. Подсчитать сумму каждой строки матрицы и найти максимальное значение среди полученных сумм

Решение