Перевірка знань 

Яким будет значение A[1] после виконання заданного фрагмента програми?

A[1]:=5; A[2]:=4;  A[3]:=6;

For i:=3 downto 2 do A[1]:=i-A[1];

Яким будет значение A[2] после виконання заданного фрагмента програми?

A[1]:=4;  A[3]:=3;  A[2]:=3;

For i:=2 to 4 do A[2]:=A[i-1]+A[2];

Задан фрагмент программы:

  Var
      a  :array[1..35] of integer;

…….

……..

Задан фрагмент программы:

  Var
      a  :array[1..35] of integer;

…….

……..

Яким буде значення S післе виконання заданого фрагмента програми?

A[1]:=2;  A[2]:=4;  A[3]:=1;  i:=1;

If A[i]*2<A[i*2] 

   then  S:=A[Ai+1]-1] 

   else  S:=A[A[i]-1];

Задан фрагмент программы:

  Var
      a  :array[1..35] of integer;

…….

……..

Задан фрагмент программы:

  Var
      a  :array[1..35] of integer;

…….

……..

Яким буде значення S післе виконання заданого фрагмента програми?

A[1]:=2;  A[2]:=3;  A[3]:=2;  i:=1;

If A[i+1]-1>A[i+2] 

   then S:=A[A[2-i]] 

   else S:=A[A[3]+i];