Avtomatika va elektrotexnologiya

array [0..100]  
of   real; 
4.  
array [0..10]  of   boolean; 
5.  
array [10..25]  
of   char; 
6.  
type  
 
chegara    = 1..100; 
 
vektor    = array [chegara]  of  real; 
 
massiv1 = array [115..130] of  integer; 
 
massiv2 = array [-754..-1] of  integer; 
    var   
A, B: vektor; 
 
c, d : massiv1; 
 
e:     massiv2; 
7. var 
 
r,  t:  array [chegara] of  real; 
 
s, q:  array [115..130]  of  integer; 
 
p:     array [-754..-1]  of  integer; 
 
k, m: array [1..50]  of  (shar, kub, doira); 
8. type kv1 = (yanvar, fevral, mart); 
    var t, r: array [kv1]  of  real; 
9. type  
 
belgi = array [boolean]  of  integer; 
 
belgi_kodi = array [char]  of integer; 
   var 
 
k : belgi; 
 
p : belgi_kodi; 
Endi mаssivlаr ustidа tipik аmаllаr bаjаruvchi bir nеchtа prоgrаmmа bilаn tаnishib chiqаylik. 
1.