Question

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

Answer 1

4. (пишу чтобы пропустил ответ)

Answer 2

Var
i, c,t:integer;
A: array[0..9] of integer;

Begin
A[0]:=6;
A[1]:=7;
A[2]:=5;
A[3]:=8;
A[4]:=3;
A[5]:=2;
A[6]:=0;
A[7]:=1;
A[8]:=9;
A[9]:=4;

c:=0;
for i:= 0 to 9 do     //ошибка либо в условии либо в коде
  if A[i]<A[0]
     then
         Begin
             c:=c + 1;
             t:=A[i];
            A[i]:= A[0];
            A[0]:= t;
        end;

writeln('c= ', c);
readln;
end.

Ответ:   c=4