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

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

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

> Определить порядковый номер 1-го положительного эл
сообщение
Сообщение #1


Новичок
*

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

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


Код

program massiv;
uses crt;
const n=50;
type t=array [1..n] of integer;
var a:t;
i:integer; m:integer;
begin
clrscr;
randomize;
read(m);
for i:=1 to m do
a[i]:=5-random(10);
for i:=1 to m do
if a[i]>0 then writeln('i=',i);
for i:=1 to m do
writeln('a[',i,']=',a[i]);
end.

всё тут сделано но нужно чтобы не все положительные элименты, а нужно чтобы только 1-ый положительный элимент выводил, а остальные нет!
как это сделать ?


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

Сообщений в этой теме
BanneD   Определить порядковый номер 1-го положительного эл   15.12.2010 1:14
Lapp   как это сделать ? Учить Паскаль и читать Правила Ф…   15.12.2010 1:20
BanneD   Учить Паскаль и читать Правила Форума. Логично…   15.12.2010 1:37
Lapp   Логично! но я вроде просил помощи, а не учить …   15.12.2010 1:52
BanneD   А я попросил не нарушать правила. Учить тебя, чт…   15.12.2010 2:04
мисс_граффити   вообще все то же можно сделать без break и тем бол…   15.12.2010 12:53
Lapp   вообще все то же можно сделать без break и тем бо…   15.12.2010 13:39
BanneD   вообще все то же можно сделать без break и тем бо…   15.12.2010 18:43
Lapp   в том то и дело я юзал эти циклы около 2-х часов н…   16.12.2010 4:54
BanneD   PS еще раз увижу CRT и ClrScr не по делу - буду п…   16.12.2010 14:19
volvo   Андрей, если б ты знал, до какой степени иногда н…   16.12.2010 14:36
TarasBer   > Вот такой небольшой модуль Хах, сурово. Я эт…   16.12.2010 15:16
Lapp   "Вот такой небольшой модуль"Спасибо, Вол…   16.12.2010 15:34
volvo   Да мне все равно, я не против публикации, если тол…   16.12.2010 15:39
TarasBer   > все же абсолютно нелишне спросить разрешение …   16.12.2010 16:05
мисс_граффити   Стесняюсь спросить... а чем вызвана такая ненавист…   16.12.2010 19:35
Lapp   Стесняюсь спросить... а чем вызвана такая ненавист…   17.12.2010 4:42
BanneD   Стесняюсь спросить... а чем вызвана такая ненавис…   17.12.2010 17:10
volvo   Ага, особенно актуально после твоего А давай не …   17.12.2010 21:01
BanneD   Ага, особенно актуально после твоего А давай не т…   17.12.2010 21:55
Lapp   Я за=) почему не надо удалять? какой смысл от нее?…   18.12.2010 6:20
BanneD   В назидание потомкам )). На этом фрруме практиче…   19.12.2010 18:17


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

 





- Текстовая версия 1.12.2020 14:43
500Gb HDD, 6Gb RAM, 2 Cores, 7 EUR в месяц — такие хостинги правда бывают
Связь с администрацией: bu_gen в домене octagram.name