Используйте алгоритм быстрой сортировки.
Пример:
Массив:
5 3 4 2 1 6 3 2 4
После сортировки:
<span>1 2 2 3 3 4 4 5 6 </span>
<span>Различных чисел: 5</span>
Var n,m,max,min:integer;
Begin
write('Введите число n: ');readln(n);
max:=-10;min:=10;
While n<>0 do
Begin
m:=n mod 10;
if m>max then max:=m;
if m<min then min:=m;
n:=n div 10;
End;
writeln('Максимальная цифра числа: ',max);
writeln('Минимальная цифра числа: ',min);
End.
const n = 16;
var a: array [1..n] of integer;
i, s : integer;
begin
writeln ('Массив: ');
for i:=1 to n do
begin
a[i]:= random(15);
write(a[i], ' ');
end;
writeln;
s:=0;
for i:=1 to 5 do s:=s + a[i];
writeln('Сумма = ', s);
end.
Пример:
Массив:
4 1 6 1 4 9 9 4 3 6 14 0 14 4 13 11
Сумма = 16
<em>Например:</em>
<em>- Приказ директора - школьное радио - студенты.</em>
<em>- Письмо министерства образования - телефон - учащиеся.</em>
<em>- Преподаватель - ручка - тетрадь.</em>
Ответ:
program Number3;
var
a, i: Integer;
begin
Randomize;
a := Random (900) + 100;
WriteLn ('Получено число ', a);
WriteLn ('сотни ', a div 100);
WriteLn ('десятки ', (a div 10) mod 10);
WriteLn ('единицы ', a mod 10);
ReadLn;
end.