I bölmə t t t

type onluq = array[1..10] of real; 

     yeddi = (mon, tue, wed, the, fri, sat, sun); 

const on: onluq = (4, 1, 1, 2, 8, 2, 8.7, 3, 7, 1.3); 

var a, a1: onluq; 

    b: array[gun] of integer; 

    c: array[1..100] of char; 

- Bìrìncì sətìrdə –dìapazon ölçülü, real tìplì «

onluq

» massìvì təyìn edìlìr. 

-  Ìkìncì  sətìrdə  ìsə  həftənìn  günlərìnì  təmsìl  edən,  sadalanan  tìplì 

yeddi

  adlı 

massìv  təyìn  edìlìr.  Bu  halda, 

yeddi

  tìpì  -  mon,  tue,  wed,  the,  fri,  sat,  sun 

dəyərlərìndən bìrìnì ala bìlər. 

- Üçüncü sətìrdə onluq tìplì yenì bìr sabìt massìvì təyìn edìlìr. on sabìtìnìn ala 

bìləcəyì dəyərlər mötərìzədə sadalanır. 

- Dördüncü sətìrdə -hər bìrì onluq tìpìndən olan a və a1 adlı  ìkì dəyìşən təyìn 

edìlìr  kì,  proqramın  ìş prosesìndə bu  dəyìşənlər  - a[1],  a[2], ..., a[10]və  ya  a1[1], 

a1[2], ..., a1[10] kìmì qìymətlər ala bìlər. 

-  Beşìncì  sətìrdə  təyìn  edìlən  b  dəyìşənì

  yeddi  massìvì  əsasında

  -b[mon],  b[tue], 

..., b[sun] kìmì integer tìplì 7 qìymət ala bìlər. 

- Altıncı sətìrdə təyìn edìlən - c dəyìşənì massìv tìplìdìr. Hər bìrì char tìplì olan 

100 dəyìşəndən hər bìrìnə c[1], c[2], ..., c[100] kìmì müracìət edìlə bìlər. 

Massìvlər  arasında  yalnız  qìymətvermə  əməlì  təyìn  edìlìr.  Məs.  a  :=  a1  əmrì 

a1-ìn bütün qìymətlərìnì a –nın müvafìq elementìnə verìr. Massìvlərìn elementlərì 

üzərìndə ìsə, əlbəttə dìgər əməllər də təyìn edìlmìşdìr.  

Massìv elementlərìnə müracìət aşaõıdakı formada tərtìb edìlìr: 

  [] 

Elementìn  nömrəsì  bəzən  ìndeks  kìmì  də  ìfadə  olunur  və  kvadrat  mötərìzə 

ìçìndə yazılır. Məs. a[1] – a massìvìnìn 1 –cì elementì və b[tue] –b massìvìnìn tue 

ìndekslì elementì (massìvdə ìkìncì element) deməkdìr. 

Məs.  Ìlk  100  müsbət  tam  ədəddən  ìbarət  massìv  quraraq  onun  elementlərì 

cəmìnì aşaõıdakı kìmì hesablamaq olar.  

 

---

s:=0;