|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
26.02.2008, 10:52 | #1 |
Регистрация: 19.02.2008
Сообщений: 9
|
Нужна помощь(Разработать алгоритм, нарисовать его блок-схему.)
Помогите пожалуйся. Разработать алгоритм, нарисовать его блок-схему.
Даны целые числа а, n, x1 , …, xn (n > 0). Определить, каким по счету идет в последовательности x1 , …, xn член, равный а. Если такого члена нет, то ответом должно быть число 0. |
26.02.2008, 11:03 | #2 |
Белик Виталий :)
Старожил
Регистрация: 23.07.2007
Сообщений: 57,097
|
Ну выкладывай свои идеи (ато тема во Фриланс пойдет)
I'm learning to live...
|
26.02.2008, 11:55 | #3 |
Форумчанин Подтвердите свой е-майл
Регистрация: 22.01.2008
Сообщений: 161
|
program pos;
var a, n, i,c: integer; ar: array [1..3000] of integer; begin write('a= '); readln(a); write('n= '); readln(n); for i:= 1 to n do begin write(i,'element: '); readln(ar[i]); end; c:= 0; for i:= 1 to n do begin if a = ar[i] then begin write(i,' '); inc(c); end; end; if c = 0 then write('0'); readln; end. |
26.02.2008, 12:00 | #4 |
Регистрация: 19.02.2008
Сообщений: 9
|
Идеи поко нету, нужно подсказка (помощь)
|
26.02.2008, 12:08 | #5 |
Регистрация: 19.02.2008
Сообщений: 9
|
Спасибо -=<[Evklidd]>=- попробую нарисовать
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
[срочно] нарисовать блок схему | masima | Фриланс | 3 | 29.05.2008 13:34 |
Помогите нарисовать блок схему ио к такой задаче | gigaman | Паскаль, Turbo Pascal, PascalABC.NET | 2 | 10.03.2008 15:12 |
Нарисовать блок схему к задаче Паскаль | gigaman | Помощь студентам | 3 | 07.03.2008 19:50 |
Помогите нарисовать блок-схему на ооочень маленький кусочек программы!!!!! | metamfetamin | Помощь студентам | 1 | 24.11.2007 22:55 |