Дан массив. Требуется вставить в него на место номер B элемент, равный C,
сдвинув все последующие элементы (включая элемент, стоящий на B-ом месте)
вправо.

Входные данные
Во входном файле записано сначала число N - количество элементов массива
(2<=N<=100), затем N чисел из диапазона Integer - элементы массива,
затем число B (1<=B<=N) и число C (из диапазона Integer).

Выходные данные
В выходной файл выведите N+1 число - элементы массива с вставленным элементом.

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

То есть ввод данных осуществляется следующим фрагментом:
read(fi,n);
for i:=1 to n do read(fi,a[i]);
read(fi,b,c);

А вывод - следующим:
for i:=1 to n+1 do write(fo,a[i],' ');

Необходимые фрагменты вы можете найти в файле P129.PAS


Пример входного файла
5
1 3 5 6 7
2 10

Пример выходного файла
1 10 3 5 6 7

Текст программы P129.PAS

const nmax=100;

var a:array[1..nmax] of integer;
    n:integer;
    i:integer;
    b,c:integer;
    fi,fo:text;

begin
assign(fi,'input.txt');
reset(fi);
assign(fo,'output.txt');
rewrite(fo);

read(fi,n);
for i:=1 to n do read(fi,a[i]);
read(fi,b,c);

{Вы должны писать здесь}

for i:=1 to n+1 do write(fo,a[i],' ');
close(fi);
close(fo);
end.

   Решение

По кругу выписано несколько чисел. Если для некоторых четырёх идущих подряд чисел a, b, c, d произведение чисел  a – d  и  b – c  отрицательно, то числа b и c можно поменять местами. Докажите, что такие операции можно проделать лишь конечное число раз.

   Решение

На какое максимальное число частей могут разбить координатную плоскость xOy графики 100 квадратных трехчлёнов вида
y = a_nx² + b_nx + c_n  (n = 1, 2, ..., 100)?

   Решение

Страница: << 1 2 3 4 5 6 [Всего задач: 26]      

На какое максимальное число частей могут разбить координатную плоскость xOy графики 100 квадратных трехчлёнов вида
y = a_nx² + b_nx + c_n  (n = 1, 2, ..., 100)?

Прислать комментарий

Решение

Страница: << 1 2 3 4 5 6 [Всего задач: 26]