Заполнить массив Y произведениями соседних трех элементов массива X - Turbo Pascal

  1. Заполнить массив Y произведениями соседних трех элементов массива X.


textual

Код:

Const N=10;
type Mas=Array[1..N]Of Integer;
var i: integer;
    Y,X:Mas;
 
Procedure Vyvod(Var massiv:Mas);
Var i:Integer;
Begin
     For i:=1 To N Do Write(massiv[i]:5);
     Writeln;
End;
 
BEGIN
  For i:=1 To N Do X[i]:=Random(10)+1;
  Write('massiv X: '); Vyvod(X);
  For i:=2 To N-1 Do Y[i]:=X[i]*X[i-1]*X[i+1];
  Y[1]:=Y[2]; Y[N]:=Y[N-1];
  Write('massiv Y: '); Vyvod(Y);
  Readln;
END.


Похожие ответы
  1. В массиве A[1..N] найти максимальное число и уменьшить все элементы массива на 5. Вывести полученную последовательность на экран. Помогите пожалуйста!

  1. Ввести с клавиатуры одномерный массив из 5 чисел , подсчитать сумму элементов больше нуля и вывести результат на экран монитора.

  1. Ввести с клавиатуры двумерный массив из 9 чисел, подсчитать сумму элементов всего массива

  1. Произвольно заданы три одномерных массива. Сформировать новый массив, состоящий из десяти элементов с наибольшими значениями исходных массивов. Помогите пожалуйста! Нужно написать программу с while и repeat!!!(отдельные)

  1. Доброго времени суток, хотел бы попросить у Вас помощи в решение задач в turbo pascal:Разработка в среде Turbo Pascal программы формирования и обработки элементов одномерного массива: 1) Сформируйте двухмерный целочисленный массив S(4x9), используя генератор случайных чисел на интервале (-10, 6). Элементы массива вывести на экран в виде матрицы. 2) Преобразуйте массив S в одномерный массив X. Полученный массив вывести на экран. 3) Вычислите среднегеометрическое значение каждых третьих элементов последней четверти массива X. 4) Среди четных по значению элементов массива X определите наименьший. 5) упорядочить принадлежащие интервалу [a/2;b/2] элементы первой половины массива X по возрастанию квадратов значений. Заранее благодарен за помощь.

  1. Здравствуйте! Запутался в передаче массива функции. И подскажите, правильно ли использую комбинированный тип.

  1. Дан целочисленный вектор А(n). Отсортировать его элементы методом линейного выбора с подсчётом

  1. В массиве структур (записей) найти всех студентов, не имеющих двоек, и сформировать из них новый массив. Полученный массив упорядочить по возрастанию среднего балла. Структура (запись) содержит поля: фамилия, количество оценок, массив оценок (не более пяти), средний балл, который вычисляется при вводе данных. Вывести исходный и полученные массивы.

  1. Строки и множества. Случайным образом заполнить множество рабочих дней в цикле из 6 повторений.

  1. Дан произвольный одномерный массив (элементы вводятся с клавиатуры). Формирование элементов массива, обработку и если нужно вывод массива оформить отдельными подпрограммами. Вычислить сумму нечетных элементов, а все остальнве удвоить.