{* Задача70 *}

REM basic

' Элементы массива А(20) заполняются по формуле A(I)=21-I^2+4. Написать программу, которая находит минимальный элемент в этом массиве и, если он не один, то их количество и номера


Dim A(20)
For I=1 To 20
A(I)=21-I^2+4
PRINT “A(“I”)=”; A(I)
Next I
MIN=A(1)
K=0
For I=2 To 20
If MIN>A(I) Then MIN=A(I)
Next I
PRINT “MIN=”; MIN
For I=1 To 20
If A(I)=MIN Then K=K+1
If A(I)=MIN Then PRINT “MIN=A(“I”)=”; MIN
Next I
PRINT “КОЛИЧЕСТВО МИНИМУМОВ К=”; K
End