Urganch davlat universiteti axborot texnologiyalari kafedrasi

const MaxA=

10000

; 

  

var F,G:text; 

  A:

array[

1.

.MaxA] 

of 

integer

; 

  B:

array[

0.

.MaxA-

1

] 

of 

integer

; 

  s:

longint

; 

  m,t, n,i,bs,es:

longint

;

 

Dastur  tanasi  boshida  poddasturlarni  chaqiruvlar  bo‘lishi  kerak  ular  fayllarni  katta 

ishlashga tayyorlaydilar. 

assign(F,

'input.txt'

);reset(F); 

assign(G,

'output.txt'

);rewrite(G);

 

Bundan  keying  kiruvchi  ma’lumotlar  o‘qiladi.  Masala  yechilishining  o‘zi  va  natijani 

chiqarish yangi yuqorida ko‘rsatilgan punktlar A massivni qayta ishlash navbatdagi testlar uchun 

natijani chiqarish quyidagiga ko‘rinishiga ega bo‘ladi. 

s:=

0

; 

for i:=

1 

to n do begin 

  s:=s+a[i]; 

  

if s mod n=

0 

then 

    begin bs:=

1

;es:=i; 

break 

end 

   else if B[S mod n]<>

0 

then 

    begin bs:=b[s mod n]+

1

; es:=i; 

break 

end; 

   b[s 

mod n]:=i; 

  

end; 

  

for i:=be to es do write(G,A[i]); 

writeln(G); 

Dastur so‘nggiga fayllarni yopishni unutmang 

 

Eslatma:  (a+b)  mod  n  =  (a  mod  n+b  mod  b)  mod  n  fo‘rmula  n=(

)mod  n 

sikllari    ni  hisoblashga imkon beradi. Shuning uchun sonlar summasini emas  n ga bo‘lishdan 

qoldiqlaqrning summasini hisoblash va ushbu summalardan qoldiqlarni olish mumkin. Shunday 

qilib S:=S+A[i] o‘rniga S:=(S+A[i] mod  n) mod n ni  yozish va pastga S mod n ifodalar o‘rniga 

quyidagi S ni ishlatish. Unda n

 bo‘lgani uchun integer tuni yetarli. Dasturni to‘liq yozing. 

Ma’lumotlar aynan qatorlarga yoyilgani kabi masala shartini aniqlashtirmaslik mumkin. Shuning 

---

uchun  sonlardan  birortasini  o‘tkazib  yubormaslik  maqsadida  ularni  o‘qish  uchun  read 

protsedurani  ishlatish  afzal.  Biroq  qatordagi  o‘zgaruvchilardagi  matnlarni  o‘qish  o‘ziga  xos 

xususiyatlarga ega. Buning uchun odatda readln prodsedurasi tushuntiriladi.