В массиве после каждого элемента вставить такой же - Pascal

  1. дан массив. после каждого элемента вставте такой же.


textual

Код к задаче: «В массиве после каждого элемента вставить такой же - Pascal»

uses crt;
const nmax=50;
var a:array[1..nmax*2] of integer;
    n,c,i,j:integer;
begin
randomize;
repeat
write('Размер массива [2..',nmax,'] n=');
readln(n);
until n in [2..nmax];
writeln('Исходный массив');
for i:=1 to n do
 begin
  a[i]:=-20+random(41);
  write(a[i]:4);
 end;
writeLn;
i:=2*n;
while i>1 do
 begin
  a[i]:=a[i div 2];
  a[i-1]:=a[i div 2];
  i:=i-2;
 end;
writeLn('Массив после вставок');
for i:=1 to 2*n do
write(a[i]:4);
end.

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

6   голосов, оценка 4.167 из 5



Похожие ответы
  1. Помогите написать программу: В массиве из 10 целых чисел подсчитать сумму элементов более чем в 2 рах превышающих минимальный.

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

  1. Есть массив с типом longint, как заменить в этом массиве определенное число буквой? (например все числа 1 заменить буквой а, все числа 13 буквой д)

  1. Привет! Помогите, пожалуйста, решить задачу: Дана действительная матрица X размера 6Х9. Найти матрицу Y, получающуюся из данной перестановкой столбцов – первого с последним, второго с предпоследним и т. д. Не получается решить, в итоге выдаёт одни лишь нули...

  1. Болел два месяца — не знаю, что делать. На самом деле тут работы на две минуты: скопипастил всё что нужно, осталось доработать (согласовать куски кода скопированные из разных источников).ЗАДАНИЕ В исходном текстовом файле записаны строки, содержащие цифры в произвольном порядке, возможно разделенные другими символами. Требуется написать программу, которая для каждой строки исходного файла будет выводить в результирующий файл последовательность цифр ('0','1'..'9') из входной последовательности в порядке увеличения частоты их встречаемости. Каждая цифра при этом должна быть распечатана один раз. Если какие-то цифры встречаются одинаковое число раз, то они выводятся по возрастанию. Например, пусть в одной из строк исходного файла содержатся следующие символы: 12324#32 в результирующем файле должно быть: 1432

  1. Имеется случайная! последовательность чисел. Напишите программу, которая сортирует данную последовательность методом пузырька. Примеры входных и выходных данных: Входные данные из input.txt 123 412 5112 12 251 Выходные данные(можно на экран): 12 123 251 412 5112 Пожалуйста, ребят

  1. Дан текстовый файл. Подсчитать количество строк, в которых вторым стоит символ «+», а предпоследним «-».

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

  1. Дано натуральное число М и целочисленный массив А[1..M]. Сосчитать и вывести количество различных чисел в массиве.Добавлено через 1 минуту помогите пож-та