Ia9 -fesil-1: 9 qxd

WriteLn('Hə, mənfi element var!') else

WriteLn('Mənfi element yoxdur!');

1. 
   Massiv nədir və o, Pascal dilində necə elan olunur?
   
2. 
   Birölçülü a massivində indekslərik-danm-dək olan elementlərin maksimumunuhesablayan proqram yazın. Tapılmış qiymətijdəyişəninə mənimsədin.
   
3. 
   Verilmiş tam ədədlər massivi 10 elementdən ibarətdir. Onların içərisində iki ədədbərabərdir. Həmin ədədlərin indeksini müəyyənləşdirən proqram yazın. Tapılmışqiymətləriivəjdəyişənlərinə mənimsədin.
   
4. 
   Aşağıdakı proqram fraqmentinin icrasından sonra L dəyişəninin qiyməti nə ola-caq? Düzgün cavabı seçin.
   

var a: array [1..4, 1..4] of integer; L, f, g, v: integer;

L := 0;

for g := 1 to 4 do begin

v := 0;

for f := 1 to 4 do

if a[f,g] < 0 then v:= v + 1;

L := L + v; end;

1. 
   amassivində müsbət elementlərin sayı
   
2. 
   amassivində müsbət olmayan elementlərin sayı
   
3. 
   amassivində mənfi elementlərin sayı
   
4. 
   amassivinin birinci sətrindəki mənfi elementlərin sayı
   
5. 
   
   
   a