Эта программа по поиску максимальных элементов в каждом столбце, а мне нужно в каждой строке. const n = 5; m = 4; var arr: array[1..n, 1..m] of byte; i, j, max: byte; begin randomize; for i: =1 to n do begin for j: =1 to m do begin arr[i, j] : = random(256); write(' |', arr[i, j]: 3, '| '); end; writeln; end; for i: =1 to m do write(' '); writeln; for j: =1 to m do begin max : = arr[1, j]; for i: =2 to n do if arr[i, j] > max then max : = arr[i, j]; write(' ', max: 3, ' '); end; writeln; end.

For i:=1 to M do write(' ');writeln;for i:=1 to N do beginmax := arr[1,j];for j:=1 to M doif arr[i,j] > max thenmax := arr[i,j];write(' ',max:3,' ');end;writeln;end.

Чуть-чуть исправить код и все будет работать, если не получится, то пиши комментарий

ответ держи сверху

Первая

var n,x:integer;

begin

 readln(n);

 while n <> 0 do begin

  x:=x + n mod 10;

  n:=n div 10;

 end;

 if(x mod 2 = 0) then

   writeln('true')

 else

   writeln('false');

end.

Вторая

var x,z,s:integer;

begin

 readln(x);

 if (x > 99) and (x < 1000) then begin

   s:=x;

   while s<>0 do begin

     z:=z+s mod 10;

     s:=s div 10;

   end;

   if(x*x) = (z*z*z) then

     writeln('true')

   else

     writeln('false');

 end

 else

   writeln('Число должно быть 3-ех значным!');

end.

Третья

Var a,b,c:Real;  

Begin  

 Writeln('Введите a');

 Readln(a);

 Writeln('Введите b');

 Readln(b);

 Writeln('Введите c');

 Readln(c);

 if (a=b) or (a=c) or (b=c) then

   writeln ('true')

 else

   writeln ('false);

end.

Первая

var n,x:integer;

begin

 readln(n);

 while n <> 0 do begin

  x:=x + n mod 10;

  n:=n div 10;

 end;

 if(x mod 2 = 0) then

   writeln('true')

 else

   writeln('false');

end.

Вторая

var x,z,s:integer;

begin

 readln(x);

 if (x > 99) and (x < 1000) then begin

   s:=x;

   while s<>0 do begin

     z:=z+s mod 10;

     s:=s div 10;

   end;

   if(x*x) = (z*z*z) then

     writeln('true')

   else

     writeln('false');

 end

 else

   writeln('Число должно быть 3-ех значным!');

end.

Третья

Var a,b,c:Real;  

Begin  

 Writeln('Введите a');

 Readln(a);

 Writeln('Введите b');

 Readln(b);

 Writeln('Введите c');

 Readln(c);

 if (a=b) or (a=c) or (b=c) then

   writeln ('true')

 else

   writeln ('false);

end.