дан массив из десяти чисел. определите, сколько элементов этого массива имеют максимальное значение.
нужно написать программу в бейсике)
нужно написать программу в бейсике)
Всё уже давно написано:
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
1. Находите максимальный элемент стандартным методом
2. С помощью условного оператора IF в цикле проверяете равенство текущего элемента значению максимального, и если они равны – увеличиваете значение переменной-счетчика.
max = arr[0]; c = 1;
arr.foreach do |v| if (max < v) then { max = v; c = 1; } else if (max == v) then c++; end;