var n,i: integer;
result,thebest: real;
begin
thebest: =1;
writeln('введите количество спортсменов');
readln(n);
for i: =1 to n do begin
writeln('введите результат ',i,' спортсмена');
readln(result);
if result> thebest then thebest: =result;
writeln('лучший результат: ',thebest);
end;
end.
Поделитесь своими знаниями, ответьте на вопрос:
Какие программы предназначены для обработки числовой, текстовой и графической информации