Как говорится, это вам не С++ - тут все очень быстро и коротко
// PascalABC.NET 3.3, сборка 1531 от 30.08.2017 // Внимание! Если программа не работает, обновите версию!
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.
Пример Введите в каждой строке фамилию, пробел, время 1: Иванов 10.3 2: Петров 9.9 3: Уточкин 10.1 4: * (Петров,9.9)
Var a1,a2,a3,a4,a5,max: integer; begin writeln ('Введите 5 чисел через пробел: '); readln (a1,a2,a3,a4,a5); begin if (a1>a2) then max:= a1else max:=a2; if (a2>a3) then max:=a2else max:=a3; if (a3>a4) then max:=a3else max:=a4; if (a4>a5) then max:=a4else max:=a5; end; writeln (max); end. Аналогично с минимальным числом. var a1,a2,a3,a4,a5,min: integer; begin writeln ('Введите 5 чисел через пробел: '); readln (a1,a2,a3,a4,a5); begin if (a1<a2) then min:= a1else min:=a2; if (a2<a3) then min:=a2else min:=a3; if (a3<a4) then min:=a3else min:=a4; if (a4<a5) then min:=a4else min:=a5; end; writeln (min); end. Можно так же решить с массива, если нужно пишите.
// PascalABC.NET 3.3, сборка 1531 от 30.08.2017
// Внимание! Если программа не работает, обновите версию!
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.
Пример
Введите в каждой строке фамилию, пробел, время
1: Иванов 10.3
2: Петров 9.9
3: Уточкин 10.1
4: *
(Петров,9.9)