|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
02.07.2007, 18:41 | #1 |
Новичок
Джуниор
Регистрация: 02.07.2007
Сообщений: 2
|
Пожалуйста, помогите решить задачку.
Вот такая задача:
Проверить, есть ли в заданной целочисленной последовательности a1 , a2 , ..., aN элементы, равные нулю. Если есть, найти номер первого из них, если нет – выдать соответствующий текст. Помогите плиз. |
02.07.2007, 19:58 | #2 |
Delphi/C++/C#
Участник клуба
Регистрация: 29.10.2006
Сообщений: 1,972
|
Данные как вводятся?
|
02.07.2007, 21:00 | #3 |
Форумчанин
Регистрация: 24.06.2007
Сообщений: 351
|
Ммммм да.........
program zad1;
uses crt; const max_n=100; type mass:array[1..max_n] of integer; var a:mass; n,i:integer; b:boolean; begin clrscr; writeln('VVEDITE n'); readln(n); for i:=1 to n do begin a[i]:=random(10); write(a[i],' '); end; writeln; b:=false; writeln('POSITION:'); for i:=1 to n do if a[i]=0 then begin write(i,' '); b:=true; end; if b=false then writeln('OTSUTSTVUET'); readkey; end. Я не маюсь бездельем, я от него тащусь!
|
02.07.2007, 21:03 | #4 |
JAVA BEAN
Участник клуба
Регистрация: 22.04.2007
Сообщений: 1,329
|
Код:
|
02.07.2007, 21:05 | #5 |
JAVA BEAN
Участник клуба
Регистрация: 22.04.2007
Сообщений: 1,329
|
А нафиг массив?
|
02.07.2007, 21:08 | #6 |
Пользователь
Регистрация: 26.06.2007
Сообщений: 22
|
const n=10 {n любое целое число}
var a:array[1..n] of integer; i,k:integer; begin k:=0; randomize; for i:=1 to n do a[i]:=random(n); { заполняем массив произвольными числами} for i:=1 to n do if a[i]=0 then begin writeln('a[',i,']=0') k:=1; {для определения случая когда нет ни одного} { числа равного нулю } break; end; if k=0 then writeln('Net ni odnogo elementa ravnogo nulu!'); end;
Дорогу одолеет идущий.
http://www.krypton.ucoz.net "Кто владеет информацией - тот владеет миром!" Уинстон Черчиль (Натан Ротшильд, Френсис Бекон) |
02.07.2007, 21:24 | #7 |
Форумчанин
Регистрация: 24.06.2007
Сообщений: 351
|
Я не маюсь бездельем, я от него тащусь!
|
02.07.2007, 23:14 | #8 | |
JAVA BEAN
Участник клуба
Регистрация: 22.04.2007
Сообщений: 1,329
|
Цитата:
|
|
02.07.2007, 23:35 | #9 |
Новичок
Джуниор
Регистрация: 02.07.2007
Сообщений: 2
|
Спасибо огромное !!!
|
03.07.2007, 08:27 | #10 |
With best regards
Участник клуба
Регистрация: 20.04.2007
Сообщений: 1,448
|
2 Carbon: Не совсем правильно, автор просит вывести номер первого нулевого элемента, а у Вас выводит последний. Вот доработал Ваш код:
Код:
Life is too short, play more...
Как правильно задавать вопросы |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Ребата, пожалуйста помогите решить задачку | Paige Hollivel | Паскаль, Turbo Pascal, PascalABC.NET | 3 | 25.06.2008 10:27 |
помогите пожалуйста решить задачку,очень надо | __k1ll3r__ | Паскаль, Turbo Pascal, PascalABC.NET | 2 | 28.05.2008 08:47 |
Помогите решить задачку пожалуйста | Никитка89 | Паскаль, Turbo Pascal, PascalABC.NET | 5 | 25.05.2008 22:33 |
помогите, пожалуйста, решить задачку | vol1 | Паскаль, Turbo Pascal, PascalABC.NET | 3 | 08.01.2008 21:09 |