Массивы (2 вариант)

Определить результат действия алгоритма:

 var a : array [1..5] of integer;    i, p : integer;

 begin

 a[1] :=  3;  a[2] :=  4;  a[3] :=  -3;  a[4] := 10;   a[5] :=  12;

  p := 1;        

  for i := 1 to 5 do

                if  a[i] mod 4 = 0  then  p := p * a[i];

    write(p);

   end.

Определить результат действия алгоритма:

var a : array [1..5] ofinteger;   i : integer;

 begin         

     a[1] := 3;  a[2] := 4;   a[3] := -3;  a[4] := 10;  a[5] :=  12;

       for i := 1 to 5 do

               if a[i]< 5 then a[i] := 0;

       for i := 1 to 5 do

                write(a[i], ‘  ‘);

   end.

Алгоритм определяет минимальный элемент массива и его номер.  Как нужно дополнить алгоритм:

 var a : array [1..5] of integer;   i, min : integer;

  begin

    a[1] := 3;  a[2] := 4;  a[3] := -3;  a[4] := 10;  a[5] :=  12;

        min := a[1]; 

       for i := 2 to 5 do

                   …………………………..;

         write(‘min=  ‘, min);

      end.

Определить назначение фрагментов программы:

1.

var a : array [1..9] of integer;   i, sum : integer;

2.

Begin For i := 1 to 9 do

      a[i] := random(21);

3.

For i := 1 to 9 do

      write(a[i] , ‘  ‘);

4.

For i := 1 to 9 do

    if  a[i] mod 10=5 then sum := sum +a[i];

5.

Write(sum);

End.