1. Заголовок темы должен быть информативным. В противном случае тема удаляется ... 2. Все тексты программ должны помещаться в теги [code=pas] ... [/code], либо быть опубликованы на нашем PasteBin в режиме вечного хранения. 3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали! 4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора). 5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM! 6. Одна тема - один вопрос (задача) 7.Проверяйте программы перед тем, как разместить их на форуме!!! 8.Спрашивайте и отвечайте четко и по существу!!!
Определить порядковый номер 1-го положительного эл
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-ый положительный элимент выводил, а остальные нет! как это сделать ?
--------------------
Один из законов жизни гласит, что как только закрывается одна дверь, открывается другая. Но вся беда в том, что мы смотрим на запертую дверь!
var TextAttr: Byte; { Для особо продвинутых случаев }
implementation
procedure ClrScr; begin end;
procedure Sound(Hz: Word); begin end; procedure NoSound; begin end;
procedure TextColor(Color: Byte); begin end; procedure TextBackground(Color: Byte); begin end;
end.
. Подключаешь его последним в списке Uses, и получаешь в 99% случаев чистый вывод программы, без опустошения экрана и разноцветных сообщений. А также без звуковых эффектов, от которых начинающих программистов просто прёт, и они думают, что это должно сразу понравиться пользователю - пикание на все лады. А если еще добавить реализацию Delay - то будет вообще прекрасно