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

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

textual

Код:

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.

Похожие ответы
  1. В двумерном массиве 10x15 найти сумму элементов для каждого столбца.

  1. Здравствуйте,помогите пожалуйста написать код,спасибо.Реализуйте алгоритм бинарного поиска.Входные данные В первой строке входных данных содержатся натуральные числа N и K (0NK100000 ). Во второй строке задаются N элементов первого массива, отсортированного по возрастанию, а в третьей строке – K элементов второго массива. Элементы обоих массивов - целые числа, каждое из которых по модулю не превосходит 109 Выходные данные Требуется для каждого из K чисел вывести в отдельную строку "YES", если это число встречается в первом массиве, и "NO" в противном случае. Примеры входные данные 10 5 1 2 3 4 5 6 7 8 9 10 -2 0 4 9 12 выходные данные NO NO YES YES NO

  1. Вставить после каждого положительного числа в одномерном массиве число 0

  1. Подскажите, пожалуйста, что у меня тут нужно изменить.. Задание следующее : "Раскрасить в массиве при выводе розовым цветом минимальные элементы каждого столбца". Прогу вроде бы написал, но красит только элементы каждой строки, а не столбца.. Как сделать так, чтобы все-таки красил мин. эл-ты столбца?

  1. В одномерном массиве из 10 элементов подсчитать количество каждого элемента. Прошу вас, помогите решить) Вроде бы легкая задача, да вот что-то не понимаю.

  1. Дан массив, состоящий из символьных значений. Определить частоту встречаемости каждого символа в массиве. Хотел создать строку из символов русского алфавита, и поочереди перебирать их в другом, неполучилось помогите плиз а то решил уже 14 задач мозг отказываеться работать... И еще запарка Найдите сумму элементов из заштрихованной области массива размерностью N на N. (заштрихованая область, все элементы по бокам границы матрицы... буду очень признателен...

  1. Задание: "Найти в двумерном массиве 5*6 случайных чисел сумму элементов каждого столбца, и после столбца с максимальной суммой вставить столбец из нулей" Помогите пожалуйста. Завтра уже надо сдавать.

  1. Задача из раздела - Регулярные типы данных. В массиве целых положительных чисел после каждого числа, состоящего из одинаковых цифр, вставить еще одно такое же число. Зараннее спасибо.

  1. В двумерном динамическом массиве S найти среднее арифметическое каждого столбца. Результаты записать в одномерный динамический массив Y, в котором поменять местами максимальный элемент с последним. Программа работает при всех значениях кроме 1 3 или 3 1. А почему, не могу понять.

  1. Для каждого столбца матрицы посчитать сумму четных элементов. Результат сохранить в одномерном массиве. Матрицу ввести с клавиатуры.


Нашли ошибку?
Развитие проекта
Яндекс.Метрика