Задача по информатике 2. решить в Qbassic. Массив.

Question

Опишите на русском языке или одном из языков программирования алгоритм подсчета числа элементов, равных максимальному в числовом масиве и 30. элементов

Валерий Мигунов · Accepted Answer

В задании ведь написано "на одном из языков программирования", т. е. на любом. Почему вы изменяете это условие? И что такое Qbassic? Или уберите из задания это Qbassic, или "на одном из... " 
 
DIM A(1 TO 30) AS INTEGER 
DIM N AS INTEGER, i AS INTEGER, Max AS INTEGER 
RANDOMIZE TIMER 
PRINT "Дан массив: " 
FOR i = 1 TO 30 
 A(i) = FIX(RND * 11) 
 PRINT USING "####"; A(i); 
NEXT 
PRINT 
N = 1 
Max = A(1) 
FOR i = 2 TO 30 
 IF A(i) > Max THEN 
 Max = A(i) 
 N = 1 
 ELSEIF A(i) = Max THEN 
 N = N + 1 
 END IF 
NEXT 
PRINT "В массиве максимальных элементов: "; N 
END