Определите лучший результат и номер спортсмена, показавший его - QBasic

Формулировка задачи:

В массив занесены данные о результатах выступления спортсменов в упражнении жим лежа : 305,5;363,5;320,5;190;301,5;290;312,5;315.Определите лучший результат и номер спортсмена ,показавший его . Решите задачу в qbasic ,заранее спасибо .

Решение задачи: «Определите лучший результат и номер спортсмена, показавший его»

Листинг программы

max = 0
FOR i = 1 TO n
IF x(i) > x(max) THEN max = i
NEXT i
PRINT "Best - #"; max; " result - "; x(max)

Объяснение кода листинга программы

Задана переменная max со значением 0.
Происходит цикл FOR от 1 до n.
Внутри цикла проверяется, является ли значение переменной x(i) больше значения переменной x(max).
Если это так, то значение переменной max обновляется на i.
После завершения цикла выводится сообщение с лучшими результатом и номером спортсмена, показавшим его.