Форум программистов, компьютерный форум, киберфорум
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.60/5: Рейтинг темы: голосов - 5, средняя оценка - 4.60
2 / 2 / 0
Регистрация: 11.12.2012
Сообщений: 5
1

Одномерный массив: вставить нулевой элемент в пятую позицию

23.01.2013, 15:13. Просмотров 1016. Ответов 2
Метки нет (Все метки)

вставить нулевой элемент в пятую позицию.при этом все элементы начиная с пятого должны сдвинуться на одну позицию вперед. Голова отказывается соображать совсем...хотя знаю что это дико просто)))))
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
23.01.2013, 15:13
Ответы с готовыми решениями:

Дан массив M(n,k). Переписать в одномерный массив элементы всех строк, в которых есть нулевой элемент.
Дан массив M(n,k). Переписать в одномерный массив элементы всех строк, в которых есть нулевой...

В одномерный массив добавить элемент в позицию К
Прошу помочь с решением задачи: В одномерный массив добавить элемент в позицию К, равный...

Вставить элемент в массив на заданную позицию
вставка одномерного массива на определенное место( место нужно вписать с клавиатуры)

Дан одномерный массив. Вставьте в него элемент L в позицию K.
задача. Дан одномерный массив. Вставьте в него элемент L в позицию K. Плиз помогите.

2
45 / 45 / 44
Регистрация: 10.05.2012
Сообщений: 76
23.01.2013, 15:26 2
Лучший ответ Сообщение было отмечено krokodili как решение

Решение

Как вариант:
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
const
     N = 10;
var
   a: array[1..N+1] of integer;
   i,x: integer;
begin
     randomize;
     for i:=1 to N do begin
         a[i]:=random(20)+1;
         write(a[i], ' ');
         end;
     writeln;
     writeln('-----------------------------');
     for i:=N+1 downto 6 do begin
     x:=a[i];
     a[i]:=a[i-1];
     a[i-1]:=x;
     end;
     for i:=1 to N+1 do
         write(a[i], ' ');
end.
1
Pascal, Delphi, C++
215 / 128 / 91
Регистрация: 01.12.2012
Сообщений: 628
23.01.2013, 15:31 3
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
uses crt;
var l , n , i , j , t : integer;
    a : array[1..100] of integer;
 
Begin
     write('vvedite razmer massiva m=');
    Readln(n);
    for i := 1 to n do begin
      write('a[',i,']=');
      readln(a[i]);
      end;
        write('ishodniy massiv');
        writeln;
       for i := 1 to n do begin
      write(a[i]:3);
      end;
      writeln;
      writeln('na skolko posiciy sdvigat');
    Readln(l);
    for i := 1 to l do begin
        t := a[1];
        for j := 1 to n - 1 do
            a[j] := a[j + 1];
        a[n] := t;
    end;
    writeln('poluchenaya stroka');
    for i := 1 to n do
        write(a[i]:3);
 
End.
Добавлено через 1 минуту
ой не то кинул))
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
23.01.2013, 15:31

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь.

Дан одномерный массив. Вставьте в него элемент L в позицию K
Написать программу, которая вставляет в массив элемент L в позицию K.

В одномерный массив вставьте некоторый элемент в заднюю позицию
Составить программу на массивы 1. Даны массив V и число x; определить число элементов массива V не...

Сформировать одномерный массив целых чисел и удалить последний нулевой элемент
Сформировать одномерный массив целых чисел,используя датчик случайных чисел.Вывести полученный...

Дан целочисленный массив размера N. Вставить перед каждой серии нулевой элемент
Напишите пожалуйста с помощью массивов с комментариями( Дан целочисленный массив размера N....

Вставить в массив нулевой элемент перед каждым из элементов, который кратен своему индексу
дан массив целых чисел из 10 элементов заполненный случайными числами из промежутка (0, 100)....

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


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
3
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2020, vBulletin Solutions, Inc.