В соревнованиях по прыжкам в длину участвуют 25 спортсменов, с клавиаиуры ввести номер спортсмена и его результат ( номер спортсмена не связан с очередностью). Написать программу, которая выводит на экран номер и результат худшего и лучшего спортсменов. все это как то связанно с оператором повтора FOR

var a,b:array[1..25] of integer;i,min,max:integer;beginmax:=1;min:=1;for i:=1 to 25 do beginread(a[i]);read(b[i]);if a[i]>a[max] then max:=i;if a[i]<a[min] then min:=i;end;writeln('Лучший - ',a[max],' длина - ',b[max]);writeln('Худший - ',a[min],' длина - ',b[min]);end.