![]() |
|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
![]() |
|
Опции темы | Поиск в этой теме |
![]() |
#1 |
Новичок
Джуниор
Регистрация: 09.04.2014
Сообщений: 2
|
![]()
Вставить после первого положительного элемента в массиве два элемента, равных заданному значению. Если вставка элементов невозможна, выдать об этом сообщение.
Ребят помогите пожалуйста сделать, заранее спасибо. const nmax=100; var a: array[1..nmax] of integer; n,i,ip,k: integer; f: boolean; begin write('Введите размер массива n: '); readln(n); f:=true; writeln('Исходный массив:'); for i:=1 to n do begin a[i]:=random(19)-9; write(a[i]:4); if (a[i]>0) and f then begin ip:=i; f:=false; end; end; writeln; if f then writeln('В массиве нет положительных элементов') else begin write('Введите вставляемое число k: '); readln(k); for i:=n downto ip do a[i+2]:=a[i]; a[ip+1]:=k; a[ip+2]:=k; n:=n+2; writeln('Полученный массив:'); for i:=1 to n do write(a[i]:4); end; readln; end. |
![]() |
![]() |
![]() |
#2 |
Lawful Evil
Участник клуба
Регистрация: 13.05.2008
Сообщений: 1,208
|
![]()
А что самостоятельно сделано?
Алгоритм - бесплатен. Поиск багов - бесплатен. Реализация алгоритма - за отдельную плату.
На форуме помогают советами и объясняют, а не пишут на халяву программы, лабы, курсачи и т.д. (c) |
![]() |
![]() |
![]() |
#3 |
Пользователь
Регистрация: 23.06.2011
Сообщений: 54
|
![]() Код:
|
![]() |
![]() |
![]() |
#4 |
Новичок
Джуниор
Регистрация: 09.04.2014
Сообщений: 2
|
![]()
Спасибо большое!
![]() |
![]() |
![]() |
![]() |
#5 |
Форумчанин
Регистрация: 08.07.2010
Сообщений: 505
|
![]()
svetlan@ практически выгнали из аудитории, если она скопипастила ответ. Подумай, прежде чем нести ответ преподу.
Знающий не говорит, говорящий не знает (С) Лао Цзы
|
![]() |
![]() |
![]() |
#6 |
Старожил
Регистрация: 19.08.2009
Сообщений: 2,119
|
![]()
а что не нак в ответе.
насколько я вижу, делается именно то, что нужно... svetlan@ практически выгнали из аудитории не страшно, её в армию все равно не заберут, так шта... (Ж
А вы почему со мной не соглашаетесь, у вас что, импотенция? (c) ACE Valery
|
![]() |
![]() |
![]() |
#7 |
Форумчанин
Регистрация: 08.07.2010
Сообщений: 505
|
![]()
Да, с нашей точки зрения, все правильно, программа делает то, что в нее запрограммировали. Но на паскале обычный статический массив, в сишном варианте динамический вектор (array_size может быть не совсем равен array.size()) ну и так, по мелочи...
Знающий не говорит, говорящий не знает (С) Лао Цзы
Последний раз редактировалось Krok27; 10.04.2014 в 14:20. |
![]() |
![]() |
![]() |
#8 |
Старожил
Регистрация: 19.08.2009
Сообщений: 2,119
|
![]()
только одна такая мааленькая особенность: не знаю как в ваших паскалях, а в C/C++ размер тру-массива не может быть изменен после создания oO
)
А вы почему со мной не соглашаетесь, у вас что, импотенция? (c) ACE Valery
|
![]() |
![]() |
![]() |
#9 |
Форумчанин
Регистрация: 08.07.2010
Сообщений: 505
|
![]()
Здесь то же нет возможности изменить, с запасом
![]() var a:array of integer; - объявление динамического массива.
Знающий не говорит, говорящий не знает (С) Лао Цзы
Последний раз редактировалось Krok27; 10.04.2014 в 14:35. |
![]() |
![]() |
![]() |
![]() |
||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Переписать программу с Delphi на C# | newresident | Фриланс | 4 | 06.05.2013 10:48 |
Переписать программу с Pascal на С++. | Kimi_kun | Общие вопросы C/C++ | 0 | 21.12.2011 18:03 |
переписать программу попроще | fasty | Помощь студентам | 6 | 20.12.2011 22:54 |
переписать программу | геннадий522 | Visual C++ | 2 | 18.12.2011 14:46 |
переписать программу | d0nDi | Общие вопросы Delphi | 1 | 06.08.2011 22:55 |