Program Premier-liga; Var B: array[1..16] of integer; Team: array[1..16] of string MaxB,MinB,Nmax,Nmin,I: integer, Begin {Ввод названий команд и набранных ими очков} Writeln(‘Введите названия команд и полученные ими очки’) For I:=1 to 16 do Begin Write(I,’ Название: ’); Readln(Team[I]); Write(’Очки: ’); Readln(B[I]) End; {Поиск наибольшего и наименьшего значений и их номеров} MaxB:=B[1]; Nmax:=1; MinB:=B[1]; Nmin:=1; For I:=2 to 16 do Begin {Выбор максимума} If B[I]>MaxB then Begin MaxB:=B[I]; Nmax:=I End; {Выбор минимума} If B[I]