[РЕШЕНО][Turbo Pascal] Для произвольной матрицы строку с наибольшей суммой элементов заменить нулями, если она четная и увеличить на заданое число, если нечетная

[иван гаврилов]

Для произвольной матрицы строку с наибольшей суммой элементов заменить нулями.

[p51x]

Какие сложности? Какие ошибки выдал компилятор?

[Вадим Мошев]

Какой язык программирования?

[иван гаврилов]

Турбо паскаль

[Вадим Мошев]

Я могу решить для вас эту задачу за некоторое денежное вознаграждение. Напишите мне на почту vadimFreelance (собака) yandex (точка) ru
Подробности у меня в подписи.

[иван гаврилов]

Написал такой код , сказали , что все после первого if неправильно , т.к если ввести отрицательные значения массива , то программа работать не будет . Как исправить ? Неправильно после (If s>smax Then ........)

program pp;
uses crt;
Var
  x: Array[1..10,1..10] of Integer;
  p,i,j,n,m,s,ind,smax: Integer;
BEGIN
Write('vedite kolvo strok: ');
Readln(n);
Write('vedite kolvo stolb: ');
Readln(m);
write('vedite na skolko yvelic:');
readln(p);
For i:=1 to n do
begin
  s:=0;
  For j:=1 to m do
  begin
    x[i,j]:=-3+Random(300);
    s:=s+x[i,j];
    Write(x[i,j]:4);
  end;
  If s>smax Then
  begin
    smax:=s;
    ind:=i;
  end;
  Writeln
end;
If Odd(smax) Then
begin
  For j:=1 to m do
  x[ind,j]:=x[ind,j]*p;
end
Else
begin
  For j:=1 to m do
  x[ind,j]:=0;
end;
Writeln;
Writeln('poluchenaia matrica:');
For i:=1 to n do
begin
  For j:=1 to m do
  Write(x[i,j]:4);
  Writeln
end;
readln;
END.

[p51x]

Инициализировать smax суммой первой строки.

[иван гаврилов]

это мне сказали. Как это с помощью кода написать ?

[p51x]

If s>smax or j=1 Then

[иван гаврилов]

изменить мою строку с IF на ваш код и все будет работать ?