profile
Опубликовано 5 лет назад по предмету Информатика от korostov2015paj1to

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

  1. Ответ
    Ответ дан iolandavalerypad353
    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.

Самые новые вопросы