Дан массив из целых чисел. В массиве есть повторяющиеся числа.Вывести сколько раз встречается каждый элемент массива.
10-11 класс
|
const
U=1000;
type:
Mas= array [1..U] of integer;
var
a: Mas;
i,j,k,n: integer;
begin
read(n);
for i:=1 to n do
read(a[i]);
for i:=1 to n do
begin
k:=0;
for j:=1 to n do
begin
if a[i]=a[j] then k:=k+1;
end;
write(k,' ');
end;
readln;
readln
end.
Если понравилось поставь лучшее решение!
Спасибо!
Программу написать ? Или что?
Другие вопросы из категории
Составить схему алгоритма и программу на языке программированияBasic для решения задачи по обработке одномерного массива.
минимальна. (Серия-последовательность одинаковых элементов. Длина серии-количество одинаковых элементов) .(паскаль) очень очень нужно))) заранее спасибо))
Каким термином называется концептуальная структура персонального
компьютера, от которой зависит каким образом, будет проводиться обработка
информации, то есть ее преобразование в данные, а также принципы взаимодействия
технических средств и программного обеспечения? Это понятие в широком смысле
определяется как искусство проектирования различных сооружений.
Читайте также
двузначных элементов массива, которые не оканчиваются на 3. №2. Дан массив из 100 элементов. Каждый элемент может принимать целочисленные значения от 1 до 500. Напишите программу, которая позволит найти и вывести минимальное значение среди элементов массива, которые делят максимальное значение элементов массива без остатка.
подсчитать среднее арифметическое положительных элементов массива, которые кратны первому элементу массива. №2. Дан массив из 40 элементов. Каждый элемент может принимать целочисленные значения от 0 до 200. Напишите программу, которая позволит найти наиболее часто встречающийся элемент массива
1) верно ли, что сумма массива есть честное число;
2)верно ли, что сумма квадратов элементов массива есть пятизначное число.
Один элемент массива соответствует количеству очков, набранных одним участником соревнований, и имеет значение от 0 до 30 включительно. Необходимо разработать программу, которая по данным массива вычисляет максимальное количество очков среди участников соревнований, и количество участников набравшее зачётное количество очков. Зачётное количество очков 18. Гарантируется, что хотя бы один участник соревнований набрал зачётное количество очков.