I bölmə t t t

program Içmassiv; 

uses Crt; 

var y, g: array[1..10] of real; 

    k, n: integer; 

begin 

  clrscr; 

  n:=0;{ilkin say} 

  for k:=1 to 10 do 

  begin 

    y[k]:=ln(k)-3; 

    if y[k]<0 then {g –üçün element aramaq} 

    begin 

      n:=n+1; 

      g[n]:=y[k]; {n –ci elementi tapmaq} 

    end; 

    writeln(‘y(’, k, ‘)= ’, y[k]:7:2); 

  end; 

  if n=0 then 

    writeln(‘g –içmassivinin elementi yoxdur’) 

  else 

    for k:=1 to n do {g –içmassivi ekrana verilir} 

      writeln(‘g[’, k, ‘]= ’, g[k]:7:2); 

  readln; 

end. 

Çalışma 12. 12 –cì məsələnì  y(k)=lg(k100)+1; k=1,2,.. ,120. ìfadəsì üçün həll 

edìn. 

 

2.  Ìkìölçülü  massìvlər  –əsasən  cədvəllərlə  ìşləmək  üçün  nəzərdə  tutulur  və 

elementlərì matrìs üsuluyla düzülərək qoşa ìndekslə  nömrələnìr. Bu ìndekslər aìd 

olduõu  elementìn  uyõun  olaraq,  sətìr  və  sütun  nömrələrìnì  göstərìr.  Məs.  A[3,2] 

elementì -A massìvìnìn 3 –cü sətrìndə 2 –cì elementdìr.      

Nümunə üçün bəzì massìvlərìn verìlmə üsullarına baxaq: 

- Qìymət balı üçün 3 sətìr və 4 sütunlu «Bal» adlı bìr massìvì: 

      Bal: array[1..3, 1..4] of integer=((4, 3, 5, 3), (4, 4, 5, 3)),(3, 4, 5, 5); 

 

---

- 

Ìlìn günlərìnì ìfadə edən, 12 x 31 ölçülü tam ədəd tìplì «Ìl» massìvì: