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

[vovka239]

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

[RathaR]

для того чтобы обьявить массив тебе необходимо заранее знать его длинну, она должна быть в условии, например 0<n<100.
Когда обьявляеш можешь писать так как ты сделал, а можешь так:

const 
n=100;
var
Mas:array[1..n] of integer; 

Терь по поводу кода, что ты привёл:

program Project1;
Var 
Mas : Array [1..100] Of Integer;
a : Integer;
n : Integer;
i : Integer;
k:integer;
Begin
writeln('vvedite a:');
read(a);
writeln('Vvedite K');  {<===== К - кол-во членов последовательности, меньше 100}
read(K);
For i:=1 to K do
begin {<========= иначе будет отрабатывать только один оператор}
  writeln('Введите', i,'-ый член последовательности'); 
  read(Mas[i]);                {<===в цыкле считываеш каждый введённый елемент}
end;
for I:=1 to K do  {<==== в цыкле пробегаешся по всему масиву}
If Mas[i]=A then n:=i;
Writeln(n);
readln
End.

Сообщение отредактировано: RathaR - 12.11.2009 23:00