ЕГЭ 19. for k in range(1,10): if 2*A[k] < A[k-1]+A[k+1]: s = s + A[k]

for k in range(1,10): if 2*A[k] < A[k-1]+A[k+1]: s = s + A[k]

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

Бейсик

Python

s = 0
FOR k = 1 TO 9
  IF 2*A(k) < A(k-1)+A(k+1) THEN
    s = s + A(k)
    A(k) = 2 * A(k)
  END IF
NEXT k

s = 0

FOR k = 1 TO 9

IF 2*A(k) < A(k-1)+A(k+1) THEN

s = s + A(k)

A(k) = 2 * A(k)

END IF

NEXT k

s = 0
for k in range(1,10):
    if 2*A[k] < A[k-1]+A[k+1]:
        s = s + A[k]
        A[k] = 2 * A[k]

s = 0

for k in range(1,10):

if 2*A[k] < A[k-1]+A[k+1]:

s = s + A[k]

A[k] = 2 * A[k]

Алгоритмический язык

Паскаль

s := 0
нц для k от 1 до 9
  если 2*A[k] < A[k-1]+A[k+1]
  то
    s := s + A[k]
    A[k] := 2 * A[k]
  все
кц

s := 0

нц для k от 1 до 9

если 2*A[k] < A[k-1]+A[k+1]

то

s := s + A[k]

A[k] := 2 * A[k]

все

кц

s := 0;
for k:=1 to 9 do begin
  if 2*A[k] < A[k-1]+A[k+1] then begin
    s := s + A[k];
    A[k] := 2 * A[k]
  end
end;

s := 0;

for k:=1 to 9 do begin

if 2*A[k] < A[k-1]+A[k+1] then begin

s := s + A[k];

A[k] := 2 * A[k]

end

end;

С++

s = 0;
for (k = 1; k < 10; ++k) {
  if (2*A[k] < A[k-1]+A[k+1]) {
    s = s + A[k];
    A[k] = 2 * A[k];
  }
}

s = 0;

for (k = 1; k < 10; ++k) {

if (2*A[k] < A[k-1]+A[k+1]) {

s = s + A[k];

A[k] = 2 * A[k];

}

Показать решение...

	0	1	2	3	4	5	6	7	8	9	10
	2	4	4	8	7	2	7	6	1	8	5
s=4			8
s=4+2						4
s=4+2+1									2