IPB
ЛогинПароль:

> Прочтите прежде чем задавать вопрос!

1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code].
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!

> Массив
Ольга.В
сообщение 18.11.2006 23:43
Сообщение #1





Группа: Пользователи
Сообщений: 1
Пол: Женский
Реальное имя: Ольга

Репутация: -  0  +


Помогите решить задачу.
В целочисленной последовательности есть нулевые элементы. Создать одномерный массив из номеров этих элемен norespect.gif тов.
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
 
 Ответить  Открыть новую тему 
Ответов(1 - 4)
Uriah
сообщение 19.11.2006 0:23
Сообщение #2


Новичок
*

Группа: Пользователи
Сообщений: 20
Пол: Мужской

Репутация: -  0  +


это делается очень просто

Код

k:=0;
for i:=1 to n do
begin
if A[i]=0 then k:=k+1;
end;
for i:=1 to n do
begin
  for j:=1 to k do
  begin
   if A[i]=0 then B[j]:=i;
  end;
end;
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
volvo
сообщение 19.11.2006 0:30
Сообщение #3


Гость






Uriah, а если подумать?

Задача элементарно решается ОДНИМ циклом, а не тем, что у тебя наворочено...

Тем более, что оно вообще неправильно...
 К началу страницы 
+ Ответить 
Uriah
сообщение 19.11.2006 0:32
Сообщение #4


Новичок
*

Группа: Пользователи
Сообщений: 20
Пол: Мужской

Репутация: -  0  +


Цитата(volvo @ 18.11.2006 23:30) *

Uriah, а если подумать?

Задача элементарно решается ОДНИМ циклом, а не тем, что у тебя наворочено...


ой, да, млость перемудрил
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
мисс_граффити
сообщение 19.11.2006 0:34
Сообщение #5


просто человек
******

Группа: Модераторы
Сообщений: 3 641
Пол: Женский
Реальное имя: Юлия

Репутация: -  55  +


blink.gif
 {по идее, надо обнулить массив nom - номера нулевых эл-тов. это сделай сама}
j:=0;
for i:=1 to n do
begin
mas[i]:=random(5)-3; {заполняем массив, если еще не заполнили}
if mas[i]=0 then
begin
inc(j);
nom[j]:=i;
end;
end;

...как всегда не успела.

Сообщение отредактировано: мисс_граффити - 19.11.2006 0:35


--------------------
Все содержимое данного сообщения (кроме цитат) является моим личным скромным мнением и на статус истины в высшей инстанции не претендует.
На вопросы по программированию, физике, математике и т.д. в аське и личке не отвечаю. Даже "один-единственный раз" в виде исключения!
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 

 Ответить  Открыть новую тему 
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 



- Текстовая версия 24.06.2025 6:45
Хостинг предоставлен компанией "Веб Сервис Центр" при поддержке компании "ДокЛаб"