<em>Как говорится, это вам не С++ - тут все очень быстро и коротко ))))
// PascalABC.NET 3.3, сборка 1531 от 30.08.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var L:=new List<(string,real)>;
// это не решение задачи, это ввод данных
Writeln('Введите в каждой строке фамилию, пробел, время');
var i:=1;
repeat
var s:=ReadlnString(i+': ');
if s[1]='*' then break;
var w:=s.ToWords;
L.Add(Rec(w[0],real.Parse(w[1])));
i+=1;
until false;
// а теперь само решение
Writeln(L.MinBy(x->x[1]))
end.
<u>Пример</u>
Введите в каждой строке фамилию, пробел, время
1: Иванов 10.3
2: Петров 9.9
3: Уточкин 10.1
4: *
(Петров,9.9)
ТУТ СЛОВО ВЕРТОЛЁТ!!!!!!!!!
<span>g = <span>9.8
</span>d = <span>1200
</span>h1 = <span>7
</span>h2 = <span>4
</span>h3 = <span>10
</span>h4 = <span>6
</span>h5 = <span>5
</span>h6 = <span>3
</span>p1 = d*g*h1
p2 = d*g*h2
p3 = d*g*h3
p4 = d*g*h4
p5 = d*g*h5
p6 = d*g*h6
print('1: '+ str(p1) +' 2: '+str(p2)+' 3: '+str(p3)+' 4: '+str(p4)+' 5: '+str(p5)+' 6: '+str(p6))</span>
<span>Л.Г.Суменко. Англо-русский словарь по информационным технологиям.М.:ГП ЦНИИС,2003.] Тематики информационные технологии в целом синонимы адрес блока памяти EN storage adress
</span>