Помогите, пожалуйста, написать программу на basic

Question

Игорь · Accepted Answer

cls 
dim a(10) 
 
for I=1 to M 
 line input "Vvedite chislo", a(i)

Сергей · Answer

завести второй массив той же длины 
пергнать из 1го во 2й с сортировкой по возрастающей 
(конкретные алгоритмы в книжках по бэйсику, 
но моно найти на др. языках прогоаммироваия) 
два последних элемента массива - искомые числа 
в 1м массиве по величинам ищем их индексы 
 
так - по простому

Sergey · Answer

DIM a(100) 
RANDOMIZE 
FOR i = 1 TO 50 
 a(i) = INT(RND * 1000) 
 IF i = 3 THEN GOSUB 10 
 IF a(i) > max THEN max2 = max: k2 = k: max = a(i): k = i 
 PRINT a(i); " "; 
NEXT i 
PRINT 
PRINT "max1 a("; k2; ")="; max2, " max2 a("; k; ")="; max 
END 
10 
IF a(1) > a(2) THEN max = a(1): k = 1: max2 = a(2): k2 = 2 
IF a(2) >= a(1) THEN max = a(2): k = 2: max2 = a(1): k2 = 1 
RETURN