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

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

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

 begin

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

         for i := 1 to 5 do

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

         write(sum);

 end.

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

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

 begin

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

        for i := 1 to 5 do

                   if a[i] > 0 then a[i] := 1000;

         for i := 1 to 5 do

                   write(a[i], ‘  ‘);

     end.

 

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

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

  begin

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

         max := a[1];

           for i := 2 to 5 do

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

         write(‘max=  ‘, max);

   end.

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

1.

Var a : array [1..10] of integer;  i, count : integer;

2.

Begin For i := 1 to 10 do
      Read(a[i]);

3.

For i := 1 to 10 do
               write(a[i] : 4);

4.

For i := 1 to 10 do
           if  a[i] mod 2<> 0 then count := count +1;

5.

Write(count);
     End.