СДЕЛАТЬ "Алгоритм решения задачи" есть программа....

[Dexter_228]

Program abc;
var a:array [1..20] of integer;
i,temp,change:integer;
begin randomize;
writeln(‘исходный массив’);
for i:=1 to 20 do
begin 
a[i]:=random(101);
write (a[i],’ ‘);
end;
writeln;
change:=-1;
while change<>0 do
begin
change:=0;
for i:=2 to 20 do
if a[i]>a[i-1] then
begin
inc(change);
temp:=a[i-1];
a[i-1]:=a[i];
a[i]:=temp;
end;
end;
writeln('сходный массив');
for i:=20 downto 1 do
write(a[i],' ');
writeln;
readln;
end.

___________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!
Модератор.

[Dexter_228]

Массив из 20 элементов заполняется случайными целыми числами в диапазоне от 0 до 100, выводится на экран в строку и сортируется методом пузырька.

[Вадим Мошев]

Что вы понимаете под понятием "Алгоритм решения задачи"? Вам блок-схему надо?

[Dexter_228]

нет, вот пример из задания : Алгоритм представляет собой последовательность действий необхо-димых для решения задачи оформленную в виде нумерованного списка. Для самых простых задач достаточно одноуровневого списка. Обычно необходимо использовать подпункты, например:
1) Задать переменную x.
2) если x>0 тогда
2.1) у=ln(x)
2.2) вывести y на экран
3) если x<=0 тогда
3.1) вывести сообщение “x должен быть больше 0”
3.2) вернуться к моменту задания переменной x – пункт 1
то есть мою програмку нужно по шагам расписать как для ребенка, буду очень благодарен если окажите содействие.