Найти максимальный элемент одномерного массива, содержащего
А) 10 элементов;
Б) n элементов (число элементов массива вводится с клавиатуры) (в Qbasic)

А где индекс?

В записи a(i) индекс - это i

Только программы (без примеров):А)CLSDIM a(1 TO 10) AS INTEGERPRINT "Введите 10 чисел"FOR i = 1 TO 10   INPUT a(i)NEXT imax = a(1)FOR i = 2 TO 10   IF a(i) > max THEN max = a(i)NEXT iPRINT "max = ";maxENDБ)CLSINPUT "Введите количество элементов массива"; nDIM a(n)FOR i = 1 TO nINPUT "Введите значение элемента: "; a(i)NEXT imax = a(1)FOR i = 2 TO n   IF a(i) > max THEN max = a(i)NEXT iPRINT "max = ";maxEND