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.
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку