Форум программистов, компьютерный форум, киберфорум
PascalABC.NET
Войти
Регистрация
Восстановить пароль
 
Рейтинг 5.00/5: Рейтинг темы: голосов - 5, средняя оценка - 5.00
0 / 0 / 0
Регистрация: 10.02.2016
Сообщений: 11
1

Удалить элемент из массива, сдвинуть все элементы влево, на освободившуюся позицию записать нуль

10.02.2016, 19:19. Показов 1017. Ответов 4

Удалить элемент из массива, сдвинуть все элементы влево, на освободившуюся позицию записать нуль. На вход подается число, которое надо удалить.
0

Помощь в написании контрольных, курсовых и дипломных работ здесь.

Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
10.02.2016, 19:19
Ответы с готовыми решениями:

Удалить из массива минимальный элемент и сдвинуть все оставшиеся на одну позицию влево
Дан массив С(30). Удалить из него минимальный элемент и сдвинуть все оставшиеся на одну позицию...

Сдвинуть все элементы одномерного массива начиная с заданного номера к концу на 1 позицию и записать элемент
Как сдвинуть все элементы начиная с заданного номера к концу на 1 позицию и записать элемент....

Все элементы массива сдвинуть влево на одну позицию
Целочисленный массив, Все элементы массива сдвинуть влево на одну позицию

Дан массив B(N). Удалить из него минимальный элемент и сдвинуть все оставшиеся елементы на одну позицию влево.
Дан массив B(N). Удалить из него минимальный элемент и сдвинуть все оставшиеся елементы на одну...

4
Объявлятель переменных
1003 / 317 / 292
Регистрация: 24.09.2011
Сообщений: 1,091
10.02.2016, 19:41 2
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

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
const
  N = 20;
type
  TVector = array[1..N] of Integer;
  
procedure PrintArray(A: TVector);
var
  I: Integer;
begin
  for I := 1 to N do
    Write(A[I], ' ');
  WriteLn;
end;
 
var
  I, X: Integer;
  A: TVector;
begin
  Randomize;
  for I := 1 to N do
    A[I] := Random(50);
  PrintArray(A);
  Write('X = '); ReadLn(X);
  for I := X to N-1 do
    A[I] := A[I+1];
  A[N] := 0;
  PrintArray(A);
end.
0
0 / 0 / 0
Регистрация: 10.02.2016
Сообщений: 11
10.02.2016, 21:25  [ТС] 3
Извините, а нельзя проще?
0
Супер-модератор
Эксперт Pascal/DelphiАвтор FAQ
31038 / 20273 / 7896
Регистрация: 22.10.2011
Сообщений: 35,174
Записей в блоге: 6
10.02.2016, 22:17 4
А что здесь такого сложного? Можно и проще, но тебе же понадобится опять еще проще:
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
const
  N = 20;
type
  TVector = array[1..N] of Integer;
  
var
  A: TVector;
begin
  Randomize;
  for var I := 1 to N do
    A[I] := Random(50);
  PrintLn(A);
  for var I := ReadLnInteger('X = ') to N-1 do
    A[I] := A[I+1];
  A[N] := 0;
  PrintLn(A);
end.
0
0 / 0 / 0
Регистрация: 10.02.2016
Сообщений: 11
11.02.2016, 19:37  [ТС] 5
А вы можете, пожалуйста, пояснение к каждому действию написать?
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
11.02.2016, 19:37

Помощь в написании контрольных, курсовых и дипломных работ здесь.

Сдвинуть все элементы массива, начиная с элемента с номером k на одну позицию «влево»
Здравствуйте, помогите пожалуйста написать программу, а то не успеваю. Пусть имеется массив x и x...

Сдвинуть элементы массива циклически на одну позицию влево
Сдвинуть элементы массива циклически на одну позицию влево

Элементы массива циклически сдвинуть на одну позицию влево
элементы массива циклически сдвинуть на одну позицию влево: An=A1,Ak=Ak+1, при k=1,2,...,n-1...

Сдвинуть элементы массива циклически на одну позицию влево
Задан массив С(10) из элементов вещественного типа. Сдвинуть элементы циклически на одну позицию...

Массив: Сдвинуть циклически влево элементы массива А(на 1 элемент)
Создать массив А из N. N ввести с клавиатуры , N<15. Сдвинуть циклически влево элементы массива...

Сформировать массив десятичных цифр числа А. Элементы массива цифр сдвинуть циклически влево на 1 позицию
дано целое десятичное число А. Сформировать массив десятичных цифр числа А. Элементы массива цифр...


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

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

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