Представленный ниже на языке Паскаль фрагмент программы обрабатывает элементы одномерного целочисленного массива A с индексами от 0 до 9. Перед началом выполнения данного фрагмента эти элементы массива имели значения 2, 4, 3, 6, 6, 6, 6, 1, 3, 2 (т. е. A[0] = 2, A[1] = 4, …, A[9] = 2). Определите значение переменной s после выполнения фрагмента. s := 0; for i:=1 to 9 do begin if A[i-1] < A[i] then begin A[i] := A[i-1] + 1; s := s + 1 end end; 2 3 4 5 6 7 8
Задание

Представленный ниже на языке Паскаль фрагмент программы обрабатывает элементы одномерного целочисленного массива A с индексами от 0 до 9. Перед началом выполнения данного фрагмента эти элементы массива имели значения 2, 4, 3, 6, 6, 6, 6, 1, 3, 2 \(т\. е\. A⟨0⟩ = 2, A⟨1⟩ = 4, …, A⟨2⟩ = 2\). Определите значение переменной s после выполнения фрагмента.
s := 0;
for i:=1 to 9 do begin
if A

\[i\-1\]
< A
\[i\]
then begin
A
\[i\]
:= A
\[i\-1\]
+ 1;
s := s + 1
end
end;

  • 2
  • 3
  • 4
  • 5
  • 6
  • 7
  • 8