Составить блок-схему к данному коду

Var

Min, Max, i, m, n:Integer

Begin

Readln (n) ;

max:=-maxint-1;

min:=maxint

For I:=1 to n do begin

ReadLn (m) ;

If (m>max) then max:=m;

If (m end;

Writeln (max,' ', min) ;

End.

Question

Информатика

Идимниса

24 февраля, 01:56

Составить блок-схему к данному коду

Var

Min, Max, i, m, n:Integer

Begin

Readln (n) ;

max:=-maxint-1;

min:=maxint

For I:=1 to n do begin

ReadLn (m) ;

If (m>max) then max:=m;

If (m end;

Writeln (max,' ', min) ;

End.

+5

Ответы (1)

Знаете ответ на вопрос?

Мяхриджемал · Answer 1

Begin

var n : = ReadlnInteger ('n = ') ;

var max : = integer. MinValue;

var min : = integer. MaxValue;

for var i : = 1 to n do

begin

var m : = ReadlnInteger ($'m{i} = ') ;

if (m > max) then max : = m;

if (m < min) then min : = m;

end;

Writeln ($'max = {max}, min = {min}') ;

end.

Составить блок-схему к данному кодуVarMin, Max, i, m, n:IntegerBeginReadln (n) ;max:=-maxint-1;min:=maxintFor I:=1 to n do beginReadLn (m) ;If (m>max) then max:=m;If (m end;Writeln (max,' ', min) ;End.

Составить блок-схему к данному коду

Var

Min, Max, i, m, n:Integer

Begin

Readln (n) ;

max:=-maxint-1;

min:=maxint

For I:=1 to n do begin

ReadLn (m) ;

If (m>max) then max:=m;

If (m end;

Writeln (max,' ', min) ;

End.