Посчитать максимум по строкам матрицы

@VasylBasic · Регистрация: 14.04.2016

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

Pascal

var B : array [1..50,1..50] of integer;
    p : array [1..50] of integer;
    n, m, i, j, max : integer;
    
    
begin
  write('n = ');
  readln(n);
  write('m = ');
  readln(m);
  writeln;
  
  for i:=1 to n do
    for j:=1 to m do
    begin
      write('B[',i,',',j,'] = ');
      readln(B[i,j]);
    end;
  
  writeln;
  for i:=1 to n do
  begin
    for j:=1 to m do
    begin
      write(B[i,j]:5);
    end;
    writeln;
  end;
  writeln;
  
  for j:=1 to m do
  begin
    p[j] := 1;
    for i:=1 to n do
      p[j] := p[j] * B[i,j];
    writeln('Product of ', j, ' column = ', p[j]);  
  end;
  
  max := p[1];
  for j:=1 to m do
    if p[j] > max then max := p[j];
    
  writeln;
  writeln('Max product = ', max);
  
end.

@JuriiMW · 28.04.2016, 05:12

В строке 35 поменять местами i и j при обращении к элементу массива…
… ну и в следующей поменять слово „column“ на соответствующее.

@JuriiMW 5079 / 2651 / 2349 Регистрация: 10.12.2014 Сообщений: 10,028
	28.04.2016, 05:12	2
	В строке 35 поменять местами i и j при обращении к элементу массива… … ну и в следующей поменять слово „column“ на соответствующее. 0