zadach21.BAS

{* Задача21 *}

REM basic

' Найти максимальный элемент и его номер в массиве


CLS
INPUT "Введите число элементов массива"; n
Dim  a(n)
K=1
max=a(1)
For i=1 To n
PRINT "Введите а("; i; ")"
INPUT а(i)
Next i
For i=1 To n
PRINT a(i)
Next i
For i=1 To n
If a(i)>max Then 
max=a(i)
k=i
End If
Next i
PRINT "k="; k 
PRINT " max="; max
End