Вывод ответа #1862858723

drakula2008,
посмотри тут массив по возрастанию
-------------
добавлено в 20.55: вот код
Program C;
uses crt;
var a:array [1..5] of integer;
b, i, h:integer;
begin
clrscr;
for i:=1 to 5 do
begin
write('Введите ', i, ' элемент массива');
readln(a[i]);
end;
for h:=1 to 25 do
for i:=1 to 4 do
if (A[i]>A[i+1]) then
begin
b:=A[i+1];
A[i+1]:=A[i];
A[i]:=b;
end;
write('Упорядочный массив - ');
for i:=1 to 5 do
write(a[i], ' ');
readkey;
end.