Составить блок-схему к данному коду
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.
Самые новые вопросы
Математика - 4 года назад
Информатика - 4 года назад
География - 4 года назад
Математика - 4 года назад
Русский язык - 4 года назад
Информация
Посетители, находящиеся в группе Гости, не могут оставлять комментарии к данной публикации.