Найти элемент массива, косинус которого минимальный - QBasic

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

Помогите с задачей пожалуйста решить задачу в QBasic, забыл уже, заранее спасибо ЗАДАЧА: дан массив А из 20 чисел. найти элемент, косинус которого минимальный,результаты распечатать в виде а(i)= соs a(i)= мое решение:

                    Листинг программы
                
 
                        
                          
                    
program mas;
uses crt;
var A:array[1..20] of integer;
    i:integer;
begin
clrscr;
for i:=1 to 20 do
begin
     A[i]:=i;
     Write('a(',i,')= ',i,'    ');
     Writeln('cos a(',i,')= ',cos(a[i]):2:2)
end;
 
readkey;
end.

это нужно сделать в Basic

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

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

min=1
for i=1 to 20
if cos(a(i))<min then min=cos a(i): element=a(i)
next
print "element=";element
print "min cos=";min

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

В данном коде на языке QBasic происходит поиск элемента массива с минимальным значением косинуса.

Переменная min инициализируется значением 1.
Происходит цикл от 1 до 20 (не включая 20).
Внутри цикла происходит проверка: если значение косинуса элемента массива a(i) меньше текущего значения переменной min, то значение переменной min присваивается значение косинуса элемента массива a(i), а сам элемент сохраняется в переменной element.
После завершения цикла происходит вывод значения переменной element и значения переменной min.