program raf105;
var
i,n,maxn: integer;
a,max: real;
begin
max:= -10000;
n:= random(3,10);
writeln('Введите результаты ',n,' участников по очереди');
for i:=1 to n do
write(i,'. ');
readln(a);
if a > max
then begin
max:= a;
maxn:= i;
end;
writeln('Победил участник №',maxn,' с результатом ',max);
end.
program raf105;
var
i,n,maxn: integer;
a,max: real;
begin
max:= -10000;
n:= random(3,10);
writeln('Введите результаты ',n,' участников по очереди');
for i:=1 to n do
begin
write(i,'. ');
readln(a);
if a > max
then begin
max:= a;
maxn:= i;
end;
end;
writeln('Победил участник №',maxn,' с результатом ',max);
end.
PascalABC 3.4.2