program z5;
var a:array[1..1000] of integer;
n,e,d,i:integer;
k:integer;
begin
read(k);
n:=0;
e:=0;
d:=0;
for i:=1 to k do
begin
a[i]:=random(3);
write(a[i]:4);
case a[i] of
0: n:=n+1;
1: e:=e+1;
2: d:=d+1;
end;
end;
writeln;
for i:=1 to n do
a[i]:=0;
for i:=1 to e+n do
a[i]:=1;
for i:=n+e+1 to n+e+d do
a[i]:=2;
for i:=1 to k do
write(a[i]:4);
end.
Алгоритм
Вводимо проміжок масиву(1..1000) типу byte.
Виводимо на екран повідомлення(Введіть кількість елементів масиву).
Вводимо з клавіатури кількість елементів масиву.
Обнулимо всі змінні масиву.
Використовуючи функцію авто заповнення(random) заповнюємо масив.
Виводимо ще несортований масив на екран.