Var n, i, sum1, sum2, buf: integer;
begin
writeln('Введите количество бросков');
readln(n);
sum1 := 0;
sum2 := 0;
i := 0;
for i := 1 to n do
begin
writeln('Введите значения на кубиках после броска № - ', i, ' на кубике человека по имени А ');
readln(buf);
sum1 := sum1 + buf;
end;
for i := 1 to n do
begin
writeln('Введите значения на кубиках после броска № - ', i, ' на кубике человека по имени B');
readln(buf);
sum2 := sum2 + buf;
end;
if sum1 = sum2 then writeln('Ничья') else
if sum1 > sum2 then writeln('Победил человек по имени А')
else writeln('Победил человек по имени B');
<span>end.
Как то так ... </span>
Волк-полк-пола-поза-коза.
Тут Русские не понимают Казахский
//Pascal ABC.NET v3.1 сборка 1172
begin
Var seq:=SeqWhile(ReadInteger(),x -> ReadInteger(),x -> x<>0).ToArray;
writeln(seq.Select((x,i)->Rec(x,i+1)).Where(x->x.Item1=seq.Min).Select(x->x.Item2));
end.
Пример ввода:
2
3
4
0
Пример вывода:
<span>[1]</span>