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