Произвести указанные операции с массивом из 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.

Объяснение кода листинга программы

  1. Объявляются переменные: a (массив из N целых чисел), n (размер массива), i, j, x (циклические переменные).
  2. Выводится сообщение Введите размер массива n= и считывается значение n.
  3. Массив a инициализируется случайными числами от 0 до 49.
  4. Выводится сообщение Массив и выводятся значения элементов массива a по 3 цифры каждого.
  5. Производится сортировка массива по возрастанию методом пузырька.
  6. Выводится сообщение Массив по убыванию и выводятся значения элементов массива a по 3 цифры каждого.
  7. Программа ожидает ввода, чтобы пользователь мог увидеть результат.

Оцени полезность:

15   голосов , оценка 3.867 из 5
Похожие ответы