1.Выполнить программы Simpl1-Simpl4. Сортировка массива!!!

[Fylhtq]

Помогите пожалуйста)))
1.Выполнить программы Simpl1-Simpl4.
Простейшие программы с подпрограммой-процедурой

Program Simpl1;
Var
X : Byte;
Procedure Proc1;
Begin
X := 1
End;

Begin
X := 0;
Proc1;
Writeln ('X = ', X)
End.

Program Simpl2;
Var
X : Byte;
Procedure Proc2;
Var X : Byte;
Begin
X := 1
End;
Begin
X := 0;
Proc2;
Writeln ('X = ', X)
End.

Program Simpl3
Var
X : Byte;
Procedure Proc3 (Y : Byte);
Begin
Y := 1
End;
Begin
X := 0;
Proc3 (X);
Writeln ('X = ', X)
End.


Program Simpl4;
Var
X : Byte;
Procedure Proc4 (Var Y : Byte);
Begin
Y := 1
End;
Begin
X := 0;
Proc4 (X);
Writeln ('X = ', X)
End.




Индивидуальное задание
Тип данных:Real
Вид упорядочения: по возрастанию абсолютного значения
Алгоритм: метод пузырька

[Fylhtq]

АААА помогите пожалуйста)))

[Fylhtq]

помогите !!!!!!)))

[spamer]

А в гугле не пробовал найти - сортировка массива методом пузырька ???

[Fylhtq]

не метод то пузырька я знаю но как писать не понимаю

[OCTAGRAM]

В поиске можно и программы найти