Эта программа по поиску максимальных элементов в каждом столбце, а мне нужно в каждой строке. const - id907215020211107 от mmmmmmiiiiiinnn 07.11.2021 15:58

Question

Информатика: Эта программа по поиску максимальных элементов в каждом столбце, а мне нужно в каждой строке. 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.

mmmmmmiiiiiinnn · Accepted Answer

Первая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(...

MOGZ ответил