10 определи значение переменной a после выполнения фрагмента алгоритма при a=0 и a=13. ввод а если a> 5 то a: =a+20 иначе a: =a*10 всё

При а=0 результат а=0
при а=13 результат а=33

program LessThanNine;

Var  

 A, B : Array of Integer;

 I, Kolvo : Integer;  

begin

   randomize;

   SetLength(A,11);

   SetLength(B,11);

   Kolvo := 0;

   For I:=0 to 10 do

   begin

     A[I]:=random(16);

     Write(A[I], ' ');

   end;

   Writeln;  

   For I:=0 to 10 do

   begin

     B[I]:=A[I] * 2;

     Write(B[I], ' ');

   end;

   Writeln;  

   For I:=0 to 10 do

     if B[I]<9 then

         Kolvo := Kolvo + 1;

   Write('Количество элементов меньше 9-ти: ', Kolvo);

end.

Объяснение:

Ну надеюсь не докопаются до того, что тут вывод на экран происходит в том же цикле, что и присваивание значений всем элементам

Объяснение:Windows  — семейство коммерческих операционных систем (OC) корпорации Microsoft, ориентированных на управление с графического интерфейса. Изначально Windows была всего лишь графической программой-надстройкой для распространённой в 1980-х и 1990-х годах операционной системы MS-DOS. Согласно данным ресурса Net Applications, по состоянию на август 2014 года под управлением операционных систем семейства Windows работает около 88 % персональных компьютеров. Windows работает на платформах x86, x86-64 и ARM. Существовали также версии для DEC Alpha, MIPS, IA-64, PowerPC и SPARC. Последней на данный момент операционной системой Microsoft является Windows 10, представленная в июле 2015 года.