Решите задачу по информатике на языке Pascale. Дан массив 1<n<1000 нужно вывести сколько цифр. Выводить цифры в любом порядке. Например: массив 5Элементы массива 1 2 1 2 1Вывести 1-3 2-2Например:массив 5Элементы массива 5 4 3 2 1Вывести 5-1 4-1 3-1 2-1 1-1
Решите задачу по информатике на языке Pascale. Дан массив 1<n<1000 нужно вывести сколько цифр. Выводить цифры в любом порядке. Например: массив 5Элементы массива 1 2 1 2 1Вывести 1-3 2-2Например:массив 5Элементы массива 5 4 3 2 1Вывести 5-1 4-1 3-1 2-1 1-1
Похожие вопросы
Не можешь разобраться в этой теме?
Обратись за помощью к экспертам
Гарантированные бесплатные доработки в течение 1 года
Быстрое выполнение от 2 часов
Проверка работы на плагиат
Поможем написать учебную работу
Программа на языке Pascal:
program CountDigits;var
n, i: integer;
arr: array[1..1000] of integer;
count: array[0..9] of integer;
begin
write('Введите количество элементов в массиве: ');
readln(n);
write('Введите элементы массива: ');
for i := 1 to n do
read(arr[i]);
for i := 0 to 9 do
count[i] := 0;
for i := 1 to n do
count[arr[i]] := count[arr[i]] + 1;
for i := 9 downto 0 do
if count[i] > 0 then
writeln(i, ' - ', count[i]);
end.
Эта программа сначала запрашивает у пользователя количество элементов в массиве и сами элементы массива, затем подсчитывает количество каждой цифры в массиве и выводит результат.