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

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


textual

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

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



Похожие ответы
  1. Помогите составить программу вычисления функции при заданных значениях аргументов. Или хотя бы каким алгоритмом руководствоваться при написание?

  1. Нужно написать программу, в которой пользователь вводит альфа(alpha), а программа бы считывала z1=cos в квадрате от разности ((3/8)*pi-(alpha/4))-cos в квадрате от суммы ((11/8)*pi+(alpha/4)) z2=(корень из 2-х/2)*sin от дроби (alpha/2)

  1. Определить и вывести сумму элементов, значения которых находятся в диапазоне от А до В. Количество элементов массива:14 Тип Элемента массива: Int Результат вывести в виде: A[1]=........ A[2]=......... A[3]=......... Большое спасибо, за помощь!

  1. Дан Одномерный числовой массив. Определить сумму элементов массива, значения которых кратны 3, использовать while и for нужно прям очень срочно, выручите кто очень хорошо разбирается, для вас это за минуту пишется я уверен

  1. Определить и вывести сумму элементов, значения которых находятся в диапазоне от А до В. Количество элементов массива:14 Тип Элемента массива: Int Заранее спасибо!

  1. Составить программу вычисления функции при заданных значениях аргументов. x=-0,5(0,1)0,5. Для вычисления ln(1-x)воспользоваться равенством

  1. Составить программу вычисления функции при заданных значениях аргументов

  1. Для организации вычислений по заданной формуле составить программу с использованием функции или подпрограммы.Для этого в фомуле выявить вычисления,подобные по своей схеме,т.е. различающиеся только объектами операций t=(1/x+1/x2+1/x3+1/x4+1/x5+1/x6+p)/(2b-c-c2-c3-c4-c5-20).

  1. Доброго времени суток. По заданным 50-элементным действительными массивами a, b и c рассчитать: Нужен код программы. Спасибо заранее.

  1. Составить программу для вычисления значения функции F(x) на отрезке [a,b] с шагом h. Произвести проверку деления на ноль если это необходимо. Результат представить в виде таблицы, первый столбец которой — значения аргумента, второй — соответствующие значения функции. для функции: Но без использования консоли в программе!