I bölmə t t t

program ATS; 

uses Crt; 

type say=array[1..10] of integer; 

var y: say; 

    max, s, i: integer; 

begin 

  clrscr; 

  max:=0; 

  s:=0; 

  for i:=1 to 10 do 

  begin 

    y[i]:=trunc(abs(7*sin(i))); 

    write(i,‘-ci san. say: ’); 

    writeln(y[i]:5); 

    s:=s+y[i]; 

    if y[i]>max then max:=y[i]; 

  end; 

  writeln(‘10 san. say = ’, s:3); 

  write(‘Bir san.maksimal say ’); 

  writeln(‘oldu = ’, max:3); 

  readln; 

end. 

 

Çalışma 11. Bu məsələnì həll edərkən təsadüfì ədəd almaq üçün randomize 

prosedurasından aşaõıdakı kìmì ìstìfadə edərək: 

---

 

randomize; 

 

y[i]:=random(7); 

başqa bìr proqram yazın. 

 

Məsələ 12. Elementlərì y(k) =ln(k) –3; k = 1, 2, .. ,10 düstuıru ìlə hesablanan y 

massìvì qurub bu massìvìn mənfì elementlərìndən ìbarət g -ìç massìvìnì ayıran və 

nətìcələrì ekrana çıxara bìlən proqram tərtìb etməlì.  

Bu proqramda -g massìvì elementlərìnìn sayı n ìlə ìşarə edìlìr.