Дан массив, размером 11. Элементы массива случайные числа из диапазона [1, 15]. Все элементы массива уменьшить на 2. Вывести исходный и измененный массив (в 2 строки). А затем в измененном массиве найти и вывести (в третьей строке) количество элементов, меньших 9.

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.

Объяснение:

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