barvnik80
если в паскале, то не ко мне. В след. раз уточняйте язык. плз)
APALoff
Var a,maxA,minA : Integer; Begin Readln(a); minA:=a; maxA:=a; Repeat If a>maxA then maxA:=a; If a<minA then minA:=a; Readln(a); Until a=0; Writeln('MIN: ',minA); Writeln('MAX: ',maxA); end.
Answers & Comments
a=str(input())
max=a[0]
min=a[0]
for i in range(len(a)):
if a[i]> max:
max=a[i]
if a[i]<min:
min=a[i]
print(min,' ',max)
Begin
Readln(a);
minA:=a; maxA:=a;
Repeat
If a>maxA then maxA:=a;
If a<minA then minA:=a;
Readln(a);
Until a=0;
Writeln('MIN: ',minA);
Writeln('MAX: ',maxA);
end.