дан массив из десяти чисел. определите, сколько элементов этого массива имеют максимальное значение.

Question

нужно написать программу в бейсике)

Diana Sidali · Accepted Answer

Всё уже давно написано: 
 
N = 10 
DIM A(1 TO N) AS INTEGER 
DIM K AS INTEGER, i AS INTEGER, Max AS INTEGER 
RANDOMIZE TIMER 
PRINT "Дан массив: " 
FOR i = 1 TO N 
 A(i) = FIX(RND * 11) 
 PRINT USING "####"; A(i); 
NEXT 
PRINT 
K = 1 
Max = A(1) 
FOR i = 2 TO N 
 IF A(i) > Max THEN 
 Max = A(i) 
 K = 1 
 ELSEIF A(i) = Max THEN 
 K = K + 1 
 END IF 
NEXT 
PRINT "В массиве максимальных элементов: "; K 
END

Алмаз Фархутдинов · Answer

1. Находите максимальный элемент стандартным методом 
2. С помощью условного оператора IF в цикле проверяете равенство текущего элемента значению максимального, и если они равны – увеличиваете значение переменной-счетчика.

Юрий Бухонин · Answer

max = arr[0]; c = 1; 
arr.foreach do |v| if (max < v) then { max = v; c = 1; } else if (max == v) then c++; end;