Студенты-Программеры

Program puzirek;
uses crt;
var
a:array[1..10] of integer;
i:integer;

Procedure sort;
var
i,j,k,rab:integer;
begin
for i:=1 to 10 do
for j:=1 to 10-i do
if a[j]>a[j+1] then
begin
rab:=a[j+1];
a[j+1]:=a[j];
a[j]:=rab;
writeln;
for k:=1 to 10 do
write(a[k],’.')
end;
end;

begin
clrscr;
randomize;
For i:=1 to 10 do
begin
a[i]:=random(5);
write(a[i]);write(’,');
end;
writeln;
sort;
readln;
end.

pRogram Zdn_2;
Uses crt;
Const n=10;
Var massiv: array [1..n] of byte;

Procedure Add(var mas: array of byte); (** zapolnenie massiva **)
Var i:byte;
Begin
i:=0;
Randomize;
For i:=1 to n do mas[i]:=random(20);
End;

Procedure Shw(var mas: array of byte); (** vivod massiva **)
Var i:byte;
Begin
i:=0;
For i:=1 to n do writeln(’ Mas[',i,'] = ‘,mas[i]);
End;

Procedure Obnl(var mas: array of byte); (** poisk dublikatov **)
Var i,j:byte;
Begin
i:=0; j:=0;
For i:=1 to n-1 do
For j:=i+1 to n do
If i<>j Then
If (mas[i]=mas[j]) and (mas[i]>0) Then
begin
writeln(’–> Mas[',i,'] & Mas [',j,'] = ‘,mas[j]);
Mas[j]:=0; (** dublikat obnulyaetsya **)
end;
End;

BEGIN
ClrScr;Add(massiv);Shw(massiv);Obnl(massiv);Shw(massiv);
(** massiv posle izmeneniya **)
Readkey;
END.

pRogRam Zdn_1;
Uses crt;
Const n=10;
Var massiv: array [1..n] of byte;
Procedure Add(var mas: array of byte); (** zapolnenie massiva **)
Var i:byte;
Begin
Randomize;
For i:=1 to n do mas[i]:=random(255);
End;

Procedure Shw(var mas: array of byte); (** vivod massiva **)
Var i:byte;
Begin
For i:=1 to n do writeln(’ Mas[',i,'] = ‘,mas[i]);
End;

BEGIN
ClrScr;Add(massiv);Shw(massiv);Readkey;
END.