369
a[i]:= Random(d - c) + c;
Write(a[i]:5)
End;
WriteLn;
For i:= 1 To n Do
Begin
Min:=a[1];
For j:= 1 To n Do
If a[j]<= min Then
Begin
Min:=a[j];
k:= j
End;
b[i]:= a[k];
a[k]:= 32767;
End;
WriteLn('Nizamlanmis massiv');
For i:= 1 To n Do Write(b[i]:5);
WriteLn;
End.
Misal 2
Program P_49;
Var a:
Array[1..100]
Of Integer;
c, d, i, p, k, n:
Integer;
Begin
Randomize;
ReadLn(n);
ReadLn(c, d);
WriteLn('Verilmis massiv ');
For i:= 1
To n
Do
Begin
a[i]:= Random(d - c) + c;
Write(a[i]:5)
End;
WriteLn;
Repeat
k:= 0;
For i:=
1
To n-1
Do
If a[i] > a[i + 1]
Then
Begin
p:= a[i]; a[i]:=
a[i + 1];
a[i + 1]:= p;
k:= k + 1
End;
Until k = 0;
WriteLn('Nizamli massiv');
For i:= 1
To n
Do Write(a[i]:5);
370
WriteLn;
End.
2.12.2. Sabit massivlər
Sabit massivlər sabitin adını bildirən identifikatordan, iki nöqtədən, əvvəlcə
təyin olunmuş hər hansı bir massiv tipindən, bərabərlik
işarəsindən və massivin
elementlərinin siyahısından ibarətdir. Elementlərin siyahısı dairəvi mötərizə
daxilində yazılır. Elementlər bir-birindən vergüllə ayrılır. Sabit massivlərin
elementləri fayl
1
və dinamik
2
tipdən başqa istənilən tipə aid ola bilərlər. Sabit
massivlərin elementlərinin qiymətləri tək-tək və ya bütün simvolların
tam sətri
şəklində verilə bilər. Belə ki, aşağıdakı iki yazılış ekvivalentdir:
Dostları ilə paylaş: 
