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

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

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

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

textual
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.

8   голосов, оценка 4.500 из 5


СОХРАНИТЬ ССЫЛКУ
Похожие ответы