Question

Составить блок-схему к данному коду
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.

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.