Произвести указанные операции с массивом из N целых чисел - Free Pascal
Формулировка задачи:
Дано N целых чисел. ЗАДАЧА 5.1. Определить, все ли числа в наборе одинаковы. ЗАДАЧА 5.2.
Определить наименьшее число и его номер в этом наборе. ЗАДАЧА 5.3. Сколько раз это число
повторяется в наборе? ЗАДАЧА 5.4. Упорядочить по убыванию все числа набора путём их сравнений
и обменов значениями.
Решение задачи: «Произвести указанные операции с массивом из N целых чисел»
textual
Листинг программы
uses crt; var a:array of integer; n,i,j,x:integer; begin clrscr; randomize; write('Введите размер массива n='); readln(n); setlength(a,n); writeln('Массив'); for i:=0 to n-1 do begin a[i]:=random(50); write(a[i]:3); end; writeln; for i:=0 to n-2 do for j:=i+1 to n-1 do if a[i]<a[j] then begin x:=a[i]; a[i]:=a[j]; a[j]:=x; end; writeln('Массив по убыванию'); for i:=0 to n-1 do write(a[i]:3); readln end.
Объяснение кода листинга программы
- Объявляются переменные: a (массив из N целых чисел), n (размер массива), i, j, x (циклические переменные).
- Выводится сообщение
Введите размер массива n=
и считывается значение n. - Массив a инициализируется случайными числами от 0 до 49.
- Выводится сообщение
Массив
и выводятся значения элементов массива a по 3 цифры каждого. - Производится сортировка массива по возрастанию методом пузырька.
- Выводится сообщение
Массив по убыванию
и выводятся значения элементов массива a по 3 цифры каждого. - Программа ожидает ввода, чтобы пользователь мог увидеть результат.