|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
18.12.2012, 09:46 | #1 |
Регистрация: 18.12.2012
Сообщений: 4
|
Удалить из массива все элементы, равные х.
Удалить из массива все элементы, равные х.
помогите решить! Код:
___________ Код нужно оформлять по правилам: тегом [CODE]..[/СODE] (это кнопочка с решёточкой #) Не забывайте об этом! Модератор. Последний раз редактировалось Serge_Bliznykov; 18.12.2012 в 09:56. |
18.12.2012, 09:54 | #2 |
Регистрация: 18.12.2012
Сообщений: 4
|
спасибо я уже сам решил
const n1=10; var a:array[1..n1]of integer; x,n,i,j,k:integer; begin write('x='); read(x); write('n='); read(n); if (n>=1) and (n<=10) then begin for i:=1 to n do begin write('a[',i,']='); read(a[i]); end; for i:=n downto 1 do if a[i]=x then begin k:=i; for k:=i to n-1 do a[k]:=a[k+1]; a[n]:=0; n:=n-1; end; for i:=1 to n do writeln('a[',i,']',a[i]); end else write('error'); end. |
18.12.2012, 09:55 | #3 | |||
Старожил
Регистрация: 16.05.2012
Сообщений: 3,211
|
Цитата:
Цитата:
(убрать k:=i и переставить в цикле i и k местами, а так же внутри этого цикла поменять i на k). Цитата:
Начал решать проблему с помощью регулярных выражений. Теперь решаю две проблемы...
|
|||
18.12.2012, 09:57 | #4 | |
Старожил
Регистрация: 16.05.2012
Сообщений: 3,211
|
Цитата:
Начал решать проблему с помощью регулярных выражений. Теперь решаю две проблемы...
|
|
18.12.2012, 10:12 | #5 |
Старожил
Регистрация: 09.01.2008
Сообщений: 26,229
|
так попробуйте:
Код:
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Удалить из массива все элементы, последняя цифра которых нечетная и сжать массив | Proskurina | Помощь студентам | 4 | 21.09.2012 23:02 |
Удалить из массива все элементы встречающиеся более двух раз. | dimok5 | Помощь студентам | 0 | 15.03.2012 16:28 |
Удалить столбцы содержащие элементы равные 0 на Visual Basic .NET | Monqer | Помощь студентам | 0 | 13.02.2012 21:27 |
дан целочисленный массив N. Удалить из массива все элементы,встречающиеся [менее двух раз]1 | Zevsnet | Паскаль, Turbo Pascal, PascalABC.NET | 6 | 16.01.2011 18:01 |
Удалить из вещественного массива все элементы, отличающиеся от его максимального элемента не более чем на | bingooo | Помощь студентам | 6 | 05.04.2010 18:42 |