Написать программу в вещественном массиве из 30 случайных чисел, переписать в другой массив все числа меньше среднего арифметического значения, оба массива вывести построчно pascalabc

// PascalABC.NET 3.3, сборка 1541 от 29.09.2017
// Внимание! Если программа не работает, обновите версию!

begin
  var a:=SeqRandomInteger(30,-50,50).Select(x->1.2*x).ToArray;
  a.Println;
  var m:=a.Average;
  var b:=a.Where(x->x<m).ToArray; b.Println
end.

Пример
27.6 -40.8 50.4 -14.4 -46.8 9.6 7.2 -36 -32.4 -60 -30 38.4 -2.4 -55.2 -43.2 -39.6 1.2 -52.8 -38.4 34.8 -45.6 -12 15.6 -55.2 4.8 13.2 -1.2 -40.8 -33.6 -19.2
-40.8 -46.8 -36 -32.4 -60 -30 -55.2 -43.2 -39.6 -52.8 -38.4 -45.6 -55.2 -40.8 -33.6 -19.2

Во-первых, чтобы на странице появилась картинка, она и файл(с расширением .html) должны находиться в одной папке(одном каталоге), например, они находятся на рабочем столе,(кстати, проверьте расширение фотографии, она в программе имеет расширение .gif Если не будет совпадения, она не появиться, даже если в одном каталоге)
Про цвета текста. Фразы заключаем в теге
 <font color="цвет по английски"> текст </font>
Например,Профессиональные интересы  выделим красным(по-англ. red) цветом
Перед фразой Профессиональные интересы  вписываем <font color="red">
После этой фразы вписываем (закрываем тег font) </font>
Можете попробовать с другими цветами вместо 

// language c++

 

float array[n];

 

//Zadacha 1

//1)

int answer;

for (i =0, i <n, i++)

{

  if (array[0] >= array[i])

   array[0] = array[i];

   answer = i;

}

cout<<answer;

 

//2)

int summ;

float array2[n];

for(int i =0, i < n, i++)

{

   summ +=array[i];

}

cout<<summ;

 

//Zadacha2

 

float massive[n];

for (int i = 0, i < n, i++)

{

   if (massive[i] < 0)

    massive[i] = -1 * massive[i];

}

//1)

int answer = 0;

for (i =0, i <n, i++)

{

  if (massive[0] >= massive[i])

   massive[0] = massive[i];

   answer = i;

}

cout << answer;