Массивы Опции

[vovka239]

Помогите пожалуйста решить задачу:
"Даны целые числа а, n, x1, x2, x3,...,xn. Определить, каким по счету идет в последовательности х1, х2, хn член, равный а. Если такого члена нет, то ответом должен быть ноль."
Я в массивах почти ничего не понимаю, проболел эту тему. Сам пробовал написать, по шаблонам, так у меня либо программа вовсе не компилировалась, либо Nod32 яростно матерился на программу)

[RathaR]

Уточнение: а если членов равных а будет больше одного? вывести номер первого?

Фактически тебе надо пройтись по масиву, и сравнить каждый его элемент с а, и если он ровняеться а, то запомнить его номер. Естественно лучше всего это выполнить в цыкле с параметром, цыкл

For I:=1 to N do

где N - длина последовательности;
Тоесть, из чего должна состоять програма:
1) - блок описания переменных, где у тебя будет обьявлено 3 переменных целого типа А,N,K - переменная в которую ты запишешь результат , и масив заведомо большей длинны(в условии должна быть указана макс. длинна последовательности).
2) - ввод переменных а, N, и ввод масива - это я думаю не нужно розъяснять;
3) - один цыкл:

For I:=1 to N do
If Mas[I]=a then K:=I;

4) Вывод

Хотя, по поводу ввода масива:
для того чтобы ввести массив с экрана необходимо знать его длинну, тоесть сначала вводишь переменную N

writeln('Введите кол-во елементов массива');
read(N);

Далее ввод массива осуществляеться в цыкле с параметром, в котором ты N раз повторяеш операцию чтения єлемента массива:

for I:=1 to N do
begin
writeln('Введите ', I,'-ый член последовательности');
read(Mas[I]);
end;

Как видишь обращение к элементам масива происходит точно также как и к строкам...
Обьявлять массив я думаю ты умеешь...

З.Ы.

Если такого члена нет, то ответом должен быть ноль."

розберись сам как поступать в этом случае, как определить нашли мы элемент равный а или нет...

Сообщение отредактировано: RathaR - 11.11.2009 5:47