Форум программистов
 
Контакты: о проблемах с регистрацией, почтой и по другим вопросам пишите сюда - alarforum@yandex.ru, проверяйте папку спам! Обязательно пройдите активизацию e-mail.

Вернуться   Форум программистов > Delphi > Паскаль, Turbo Pascal, PascalABC.NET
Регистрация

Восстановить пароль
Повторная активизация e-mail

Здесь нужно купить рекламу за 20 тыс руб в месяц! ) пишите сюда - alarforum@yandex.ru
Без учёта ботов - 20000 человек в день, 350000 в месяц.

Ответ
 
Опции темы
Старый 23.05.2007, 19:00   #1
narkozz
Новичок
Джуниор
 
Регистрация: 23.05.2007
Сообщений: 1
По умолчанию Паскаль. задача на массив

задача...
Дан одномерный массив случайных чисел [1..30]... корчое я ввожу число N и мне надо чтоб все числа которые меньше этого числа N удалились из массива... не убрать с экрана, а удалить!
narkozz вне форума   Ответить с цитированием
Старый 23.05.2007, 20:47   #2
chingiz
Пользователь Подтвердите свой е-майл
 
Аватар для chingiz
 
Регистрация: 21.05.2007
Сообщений: 88
По умолчанию

Предположим имя массива M тогда
for i:=1 to 30 do
if M[i] < N then M[i]:=nil;
chingiz вне форума   Ответить с цитированием
Старый 23.05.2007, 20:47   #3
pu4koff
Старожил
 
Аватар для pu4koff
 
Регистрация: 22.05.2007
Сообщений: 9,538
По умолчанию

удалить элемент массива низя. Так что видимо надо хранить кол-во элементов в массиве (до удаления оно будет равно 30). ну и для удаления элемента смещаешь все элементы, что после него, на 1 к началу массива, т.е. a[i] := a[i+1] и при выводе на экран соответственно цикл будет не до 30, а до получившегося кол-ва элементов
pu4koff вне форума   Ответить с цитированием
Старый 23.05.2007, 20:48   #4
pu4koff
Старожил
 
Аватар для pu4koff
 
Регистрация: 22.05.2007
Сообщений: 9,538
По умолчанию

Цитата:
Сообщение от Александр Чиндяев Посмотреть сообщение
Предположим имя массива M тогда
for i:=1 to 30 do
if M[i] < N then M[i]:=nil;
тогда нужно будет делать массив не чисел, а указателей на них
pu4koff вне форума   Ответить с цитированием
Ответ
Опции темы


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Паскаль (двумерный массив) RAVAL)) Помощь студентам 5 16.06.2008 00:27
Задача на массив Юрии Александрович Паскаль, Turbo Pascal, PascalABC.NET 5 08.12.2007 16:32
Задача на массив. ErMaKiim Помощь студентам 2 29.11.2007 20:42
Паскаль. Динамический массив KORT Паскаль, Turbo Pascal, PascalABC.NET 2 29.09.2007 23:08