Question

Представленный ниже на пяти языках программирования фрагмент программы обрабатывает элементы одномерного целочисленного массива A с индексами от 0 до 9. Перед началом выполнения данного фрагмента эти элементы массива имели значения 2, 4, 1, 8, 2, 6, 3, 2, 2, 1 (т.е. A[0] = 2, A[1] = 4, …, A[9] = 1). Определите значение переменной s после выполнения фрагмента.

Паскаль

n:=10;

s:=0;

for i:=1 to n-1 do begin

if a[i-1]>2*a[i] then begin

a[i]:=2*a[i];

s := s+ a[i];

end;

end;

Answer 1

Ответ:

var n,s,i:integer;

var a:array[0..9] of integer;

begin

 a[0]:=2;

  a[1]:=4;

   a[2]:=1;

    a[3]:=8;

     a[4]:=2;

      a[5]:=6;

       a[6]:=3;

        a[7]:=2;

         a[8]:=2;

          a[9]:=1;

n:=10;

s:=0;

for i:=1 to n-1 do begin

if a[i-1]>2*a[i] then begin

a[i]:=2*a[i];

s := s+ a[i];

end;

end;

writeln(s);

end.

⇒s = 6.