Рассчитать значения 12-ти элементов массива Y по формуле - Pascal ABC

Формулировка задачи:

Рассчитать значения 12-ти элементов массива Y по формуле . Вывести на экран этот массив и новый, разместив в нем первоначально элементы, значения которых меньше среднего арифметического, а потом остальные, не меняя их последовательности.

Решение задачи: «Рассчитать значения 12-ти элементов массива Y по формуле»

Листинг программы

const n=12;
var y:array[1..n] of real;
    i,j,k:integer;
    s,x:real;
begin
writeln('Исходный массив');
s:=0;
for i:=1 to n do
 begin
  y[i]:=i*i-2*i+19.3*cos(i);
  s:=s+y[i];
  write(y[i]:6:1);
 end;
writeln;
s:=s/n;
writeln('среднее=',s:0:2);
k:=0;
for i:=1 to n do
if y[i]<s then
 begin
  k:=k+1;
  x:=y[i];
  for j:=i downto k+1 do
  y[j]:=y[j-1];
  y[k]:=x;
 end;
writeln('Измененный массив');
for i:=1 to n do
write(y[i]:6:1);
end.

Объяснение кода листинга программы

Данный код написан на языке Pascal ABC и выполняет следующие действия:

Объявляет переменные: n (количество элементов в массиве Y), y (массив Y), i, j, k (переменные для циклов), s (сумма элементов массива Y), x (значение элемента массива Y).
Выводит исходный массив Y.
Запускает цикл, который проходит по каждому элементу массива Y от 1 до n. Внутри цикла вычисляется значение элемента y[i] по формуле ii-2i+19.3*cos(i) и записывается в консоль. Также суммируется значение каждого элемента с предыдущим значением s.
После завершения цикла выводится среднее значение s/n.
Запускается еще один цикл, который проходит по каждому элементу массива Y от 1 до n. Если значение элемента y[i] меньше среднего значения s, то обновляется значение k. Затем значение элемента y[i] заменяется на значение x. Далее, если значение элемента y[j] (начиная с i+1) меньше значения s, то значения элементов y[j] заменяются на значения y[j-1]. Значение элемента y[k] заменяется на значение x.
Выводится измененный массив Y. Таким образом, данный код вычисляет значения 12-ти элементов массива Y по формуле и изменяет порядок элементов в массиве, если они упорядочены по убыванию.