for i:=1 to 100 do
begin
a[i]:=i;
s:=s+a[i];
end;
writeln(s);
Çox vaxt hər-hansı massìvìn müəyyən elementlərìnì axtarmaq lazım gəlìr kì,
bu ìş -dövr və budaqlanma əmrlərìnìn axtarış şərtlərì əsasında həyata keçìrìlìr.
Məsələ 11. ATS –ə k –cı sanìyədə daxìl olan zənglərìn sayını y(k) kìmì ìfadə
edək. Tutaq kì, bu ìfadənìn qìymətì:
y(k)=trunc(abs(7*Sin(k))) kìmì təsadüfì funksìya ìlə təyìn olunan 0, 1, .. ,6
ədədlərìndən bìrìdìr. ATS –ə 10 dəqìqə ərzìndə gələn zənglərìn sayını və 1 dəqìqə
ərzìndə daxìl olmuş maksìmal zəng sayını hesablayaraq nətìcələrì ekrana çıxara
bìləcək proqram yazmalı.
Zənglər sayını sadəcə say və s. müvafìq ìşarələr qəbul etməklə bu proqramı
aşaõıdakı kìmì tərtìb etmək mümkündür:
Dostları ilə paylaş: | 
