Вставить элемент К перед элементами массива, где присутствует число 1

@mimilbek · Регистрация: 13.04.2013

Author24 — интернет-сервис помощи студентам

Ребята помогите пожалуйста. Нашел исходник в более раннем посте, но у меня массив индексируется с нуля, но что то не очень корректно работает.

Delphi
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
procedure TForm2.Button5Click(Sender: TObject);
var
j,k,x:integer;
B:array of integer;
begin
Edit4.Text:='';
i:=0;
j:=0;
k:=strtoint(edit6.Text);
i:=0;
while i<=n-1 do
 begin
  x:=abs(M[i]);
  if(x div 10=1)or(x mod 10=1) then
   begin
    n:=n+1;
    for j:=n downto i+1 do
    M[j]:=M[j-1];
    M[i]:=k;
    i:=i+2;
   end
  else i:=i+1;
 end;
for i:=0 to n-1 do
 Edit4.Text:=Edit4.Text+' '+ IntToStr(M[i]);
end;

@Puporev · 18.04.2015, 18:16

Если массив М динамический, как и зачем-то объявленный массив В, то нужно после изменения размера массива выделять память

Delphi
1
2
n:=n+1;
setlength(M,n);

@mimilbek · 18.04.2015, 18:52 **[ТС]**

Благодарю, очень помогли)

Новые блоги и статьи Все статьи Все блоги /
Вопросы на собеседованиях по микросервисам ArchitectMsa 27.03.2025 Работодатели ищут не просто разработчиков, знающих базовые концепции, а специалистов, разбирающихся в тонкостях масштабирования, отказоустойчивости и производительности. Сейчас на первый план выходят. . .	Взаимодействие Python с REST API py-thonny 27.03.2025 REST API - это архитектурный стиль взаимодействия компонентов распределённого приложения в сети. Python располагает функциональным набором инструментов для работы с REST API и основная библиотека для. . .	sshd restrictions, ssh access limitations jigi33 26.03.2025 sshd restrictions \| ssh access limitations рестрикции доступа на сервер sshd статья: https:/ / www. golinuxcloud. com/ restrict-allow-ssh-certain-users-groups-rhel	Компиляция C++ с Clang API NullReferenced 24.03.2025 Компиляторы обычно воспринимаются как черные ящики, которые превращают исходный код в исполняемые файлы. Мы запускаем компилятор командой в терминале, и вуаля — получаем бинарник. Но что если нужно. . .	Многопоточное программирование в C#: Класс Thread UnmanagedCoder 24.03.2025 Когда запускается приложение на компьютере, операционная система создаёт для него процесс - виртуальное адресное пространство. В C# этот процесс изначально получает один поток выполнения — главный. . .
SwiftUI Data Flow: Передача данных между представлениями mobDevWorks 23.03.2025 При первом знакомстве со SwiftUI кажется, что фреймворк предлагает избыточное количество механизмов для передачи данных: @State, @Binding, @StateObject, @ObservedObject, @EnvironmentObject и другие. . . .	Моки в Java: Сравниваем Mockito, EasyMock, JMockit Javaican 23.03.2025 Как протестировать класс, который зависит от других сложных компонентов, таких как базы данных, веб-сервисы или другие классы, с которыми и так непросто работать в тестовом окружении? Для этого и. . .	Архитектурные паттерны микросервисов: ТОП-10 шаблонов ArchitectMsa 22.03.2025 Популярность микросервисной архитектуры объясняется множеством важных преимуществ. К примеру, она позволяет командам разработчиков работать независимо друг от друга, используя различные технологии и. . .	Оптимизация рендеринга в Unity: Сортировка миллиона спрайтов GameUnited 22.03.2025 Помните, когда наличие сотни спрайтов в игре приводило к существенному падению производительности? Время таких ограничений уходит в прошлое. Сегодня геймдев сталкивается с задачами совершенно иного. . .	Образование и практика Igor3D 21.03.2025 Добрый день А вот каково качество/ эффективность ВУЗовского образования? Аналитическая геометрия изучается в первом семестре и считается довольно легким курсом, что вполне справедливо. Ну хорошо,. . .

@mimilbek 12 / 12 / 4 Регистрация: 13.04.2013 Сообщений: 125
	18.04.2015, 18:52 [ТС]
	Благодарю, очень помогли) 0

Опции темы