Форум программистов, компьютерный форум, киберфорум
Наши страницы
Free Pascal
Войти
Регистрация
Восстановить пароль
 
Ничоси
0 / 0 / 0
Регистрация: 04.10.2015
Сообщений: 10
#1

Массив: Выведите на экран таблицу, в которой перечислены элементы массива (без повторений, в порядке убывания) - Free Pascal

09.11.2015, 13:15. Просмотров 280. Ответов 3

Дан одномерный массив натуральных чисел. Выведите на экран таблицу, в которой перечислены элементы массива (без повторений, в порядке убывания) и сколько раз они повторяются в массиве.
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
var
  buf, k, i, j: integer;
  a: array[1..100] of integer;
begin
  writeln('Введите количество элементов в массиве');
  readln(k);
  for i := k to 1 do
  begin
    writeln('Введите ', i, '-ый элемент массива:');
    readln(a[i]);
  end;
  for i := k to 1 do
    for j := k to 1 do
      if a[i] < a[j] then
      begin
        buf := a[i];
        a[i] := a[j];
        a[j] := buf;
      end;
  writeln('Полученный массив');
  for i := k to 1 do
    writeln(a[i], '   ');
  readln;
end.
Здесь нужно исправить повторение и сделать по убыванию

Добавлено через 7 минут
Желательно с комментариями, что делает строка та или иная
http://www.cyberforum.ru/pascal/thread1589331.html
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
09.11.2015, 13:15
Я подобрал для вас темы с готовыми решениями и ответами на вопрос Массив: Выведите на экран таблицу, в которой перечислены элементы массива (без повторений, в порядке убывания) (Free Pascal):

Выведите на экран массив дат, упорядоченный в порядке убывания года
Помогите решить на паскале: Дата: день (число), месяц (номер месяца), год...

Выяснить, перечислены ли ученики в списке в порядке убывания их роста. нужно сделать через REPEAT-UNTIL
Имеется список учащихся класса с указанием роста каждого из них. Выяснить,...

Переставить элементы массива в порядке убывания
Переставить элементы массива в порядке убывания и найти сумму элементов...

Описать процедуру print(A), выводящую на экран элементы множества А в порядке возрастания (убывания)
Дано множество натуральных чисел A, находящихся в диапазоне от 0 до 99. Описать...

Получить массив b, в котором элементы размещены в порядке убывания
Из массива а, задаваемого пользователем, получить массив b, в котором элементы...

3
bormant
Модератор
Эксперт Pascal/DelphiЭксперт NIX
3755 / 2452 / 2034
Регистрация: 22.11.2013
Сообщений: 6,821
10.11.2015, 10:40 #2
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
const mn=100;
var
  a: array [1..mn+1] of Integer;
  i, j, n, t: Integer;
begin
  repeat
    Write('Количество элементов [1..',mn,']: '); ReadLn(n);
  until (n>=1) and (n<=mn);
  Write('Элементы: ');
  for i:=1 to n do Read(a[i]); ReadLn;
  for i:=n downto 2 do
    for j:=2 to i do
      if a[j-1]<a[j] then begin
        t:=a[j-1]; a[j-1]:=a[j]; a[j]:=t;
      end;
  a[n+1]:=a[n]+1; j:=1;
  for i:=1 to n do
    if a[i]=a[i+1] then Inc(j)
    else begin
      WriteLn(a[i]:8,': ',j); j:=1;
    end;
end.
6-10 -- ввод массива;
11-15 -- сортировка массива по убыванию пузырьком;
16-21 -- подсчет повторов и вывод накопленных значений.
0
Ничоси
0 / 0 / 0
Регистрация: 04.10.2015
Сообщений: 10
10.11.2015, 12:25  [ТС] #3
А что такое t, mn?
0
ZX Spectrum-128
Модератор
Эксперт Pascal/Delphi
3858 / 2845 / 3631
Регистрация: 05.06.2014
Сообщений: 13,942
10.11.2015, 16:39 #4
Ничоси, mn - количество элементов (об этом прямо в программе написано, читайте внимательно).
t - переменная для временного хранения значения при обмене элементов
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
10.11.2015, 16:39
Привет! Вот еще темы с решениями:

Массив: Расположить отрицательные элементы последовательности в порядке убывания
Выполнить данную работу методом парных перестановок (метод пузырька) : Дана...

Элементы массива задаются с помощью датчика случайных чисел. Вывести элементы массива на экран в обратном порядке.
решите пожалуйста Дан одномерный массив a1,...,an, состоящий из 17 целых...

В массиве удалите элементы, кратные 5; после чего выведите массив на экран
С клавиатуры вводится одномерный массив целых чисел: сначала вводится...

Вывести элементы массива на экран в обртном порядке
Вывести элементы массива на экран в обртном порядке


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
4
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru