Задание
c := 0;
for i := 1 to 9 do
if A
begin
t := A
A
A
end
else
c := c + 1;
В программе используется одномерный целочисленный массив A с индексами от 0 до 9. Значения элементов равны 5; 1; 6; 7; 8; 8; 7; 7; 6; 9 соответственно, т.е. A
\[0\]
=5; A\[1\]
=1 и т.д. Определите значение переменной c после выполнения следующего фрагмента программы на Паскале:c := 0;
for i := 1 to 9 do
if A
\[i\-1\]
>= A\[i\]
thenbegin
t := A
\[i\]
;A
\[i\]
:= A\[i\-1\]
;A
\[i\-1\]
:= t;end
else
c := c + 1;
- 4
- 8
- 5
- 9