Наиболее часто встречающийся элемент в массиве целых чисел - QBasic

  1. Найти наиболее часто встречающийся элемент в массиве целых чисел. Помогите плес.


textual

Код к задаче: «Наиболее часто встречающийся элемент в массиве целых чисел - QBasic»

RANDOMIZE TIMER
DIM a(1000),b(1000)
INPUT n
max=0
FOR i=1 TO n
a(i)=INT(RND*20)+1
PRINT a(i);
b(a(i))=b(a(i))+1
IF b(a(i))>max THEN max=b(a(i)):element=a(i)
NEXT
PRINT
PRINT "max=";max
PRINT "element=";element

СДЕЛАЙТЕ РЕПОСТ

12   голосов, оценка 4.083 из 5



Похожие ответы
  1. Считая, что текст содержит буквы только латинского алфавита, построить таблицу, в которой для каждой буквы указано, сколько раз она появилась в тексте(иными словами, построить таблицу частот появления в тексте каждлй буквы). Ребят, помогите пожалуйста, вообще не понимаю, как это делать

  1. Определить значение и номер элемента массива X(n), наиболее близкого к среднему арифметическому всех элементов массива. Вывести массив и полученные значения. Упорядочить массив X(n) по убыванию. Вывести полученный массив. Исходный массив элементов получить с помощью датчика случайных чисел. Значения буквенных переменных задавать с клавиатуры.

  1. найти координаты элемента матрицы наиболее близкого к среднему значению всех элементов массива. среднее значение я нашла, а вот с нахождением координат проблема возникла,не подскажите как это сделать??

  1. Дано 10 вещественных чисел. Найти порядковый номер того из них, которое наиболее близко к целому числу.

  1. Задача: Из исходной строки символов a$ выбрать и распечатать наиболее длинные последовательности символов, у которых ASCII-коды последовательно возрастают и убывают(исходные данные вводятся с клавиатуры) Помогите самую суть написать(цикл) , вот у меня начало:

  1. Задача: Найти элемент массива А состоящий из N элементов,ближайший к заданному* числу С т.е элемент для которого А(I) -С достигается min. Наработал следующее:PureBasic1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 CLS INPUT "vvedite razmer massiva: "; n INPUT "vvedite chislo C: "; c min = 10^10 DIM a(1 to n) REM "Vvod massiva" FOR i = 1 TO n a(i) = INT(RND(i) * 100 - 50) next i REM "Obrabotka massiva" FOR i = 1 to n IF a(i) < = min THEN min = a(i) PRINT "A(i)= "; a(i) next i PRINT "Min= "; min, "C= "; c, "Razmer massiva "; n ENDПодскажите пожалуйста какой код (и куда) вставить, чтобы вычислить элемент массива наиболее близкий к числу C

  1. Дано натуральное число. Определить наиболее часто повторяющуюся в нем цифру и указать ее позиции в числе. Помогите, пожалуйста.

  1. дан масив состоящий из 17 элементов .найти индекс элементов масива, наиболее близкого к даному числу результат распечатать в виде: масив заданое число элемент индекс. я объявляю масив а что делать дальше не знаю помогите составить программу в басике PureBasic1 2 3 4 rem n=17 dim a(n) for i=1 to nа что дальше делать не знаю