задача с массивом

[bonys91]

написать программу которая проверяет находится ли в массиве введенное с клавиатуры число.
вчём ошибка подскажите пожалуйста!

program;
var a:array[1..100] of real;
n,i,number:integer;
flag:boolefn;
begin
writeln('vvedite chislo');
readln(number);
begin
flag:=false;
for i:=1 to 100 do if a[i]=number then flag:=true;
writeln('true');
readln;
end;
begin
flag:=false;
for i:=1 to 100 do if a[i]<>number then flag:=false;
writeln('false');
readln;
end;
readln;
end.

[Sazary]

Во-первых, где вы вводите сам массив? Нигде.
Во-вторых, второй блок:

begin
flag:=false;
for i:=1 to 100 do if a[i]<>number then flag:=false;
writeln('false');
readln;
end;

не имеет смысла.
И в-третьих, синтаксическую ошибку

flag:boolefn;

могли бы сами исправить.

[bonys91]

program;
var a:array[1..5] of real;
n,i,number:integer;
flag:booleln;
begin
for i:=1 to 5 do 
begin
writeln('vvedite chislo');
readln(number);
begin
flag:=false;
for i:=1 to 5 do if a[i]=number then flag:=true;
writeln('true');
readln;
end;
readln;
end.

А сйчас всё так а то всё равно не работает???

[Sazary]

И что? Вы 5 раз вводите число. А массив по-прежнему не заполнен.
Тело цикла у вас вообще не закрыто.
А слово boolean снова написали неправильно.
Говорить о каких-то ошибках нельзя, т.к. неверно все.

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

[lgedmitryII]

Помогите с задачей: В одномерном массиве попарно записаны координаты N-точек.Найти расстояние между соседними точками и записать в другой массив

[Levsha100]

lgedmitryII
Вы правила форума читали?

for i:=2 to N div 2 do
B[i]:=A[i]-A[i-1]

Не знаю правильно ли...проверьте...