Question

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

k := 0;
for i := 1 to 8 do
if A[i] > A[i+1] then
begin
k := k + 1;
t := A[i];
A[i] := A[i+1];
A[i+1] := t
end;