Наибольшее из десяти произвольных чисел - VB
Формулировка задачи:
Составить программу определения наибольшего из десяти произвольных чисел.
Решение задачи: «Наибольшее из десяти произвольных чисел»
textual
Листинг программы
max = D(1) For i = 1 to 10 If D(i)>max Then max = D(i) Next i