Построение массива по правилу - Turbo Pascal

  1. Дан массив b1, b2,…, b2m. Написать программу построения массива с элементами, соответственно равными: b2m, b1, b2m-1, b2, …, bm+1, bm.


textual

Код к задаче: «Построение массива по правилу - Turbo Pascal»

const nmax=100;
var b:array[1..nmax] of integer;
    m,i,j:byte;
    x:integer;
begin
clrscr;
randomize;
repeat
write('Введите половину размера массива от 1 до ',nmax div 2,' m=');
readln(m);
until m in[1..nmax div 2];
writeln('Исходный массив:');
for i:=1 to 2*m do
 begin
  b[i]:=random(100);
  write(b[i]:4);
 end;
writeln;
i:=1;
while i<2*m do
 begin
  x:=b[2*m];
  for j:=2*m downto i+1 do
  b[j]:=b[j-1];
  b[i]:=x;
  i:=i+2;
 end;
writeln('Перестановка:');
for i:=1 to 2*m do
write(b[i]:4);
readln
end.

СДЕЛАЙТЕ РЕПОСТ

11   голосов, оценка 3.455 из 5



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

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

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

  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. Массив А(30) заполнить целыми случайными числами в диапазоне от 5 до 115. Вывести те значения А(I)(I = 2, 3, . . ., 29), которые больше своих соседей, и подсчитать их количество N. Вывести также весь массив А.

  1. В массиве а1, а2, ..., а30 найти среднее арифметическое всех отрицательных элементов, а из оставшихся сформировать новый массив bk. Буду очень благодарен.

  1. В одномерном массиве что состоит из N действительных элементов вычислить: 1.Максимальний элемент массива. 2.Суму элементов расположенных до последнего положительного элемента. Удалить из массива все элементы модуль которых находится в интервале [a, b] .Елементы которые освободятся в конце массива заполнить нулями.