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

[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.

[Levsha100]

Как только оформите пост правильно - ответим!

program;
var
a:array[1..100] of real;
i,number:integer;
flag:boolean;
begin
writeln('vvedite chislo');
readln(number);
flag:=false;
for i:=1 to 100 do
if a[i]=number then flag:=true;
If flag=true then WriteLn('est') else WriteLn('net');
readln;
end.

Можно вопросик? Почему у вас стоит куча BEGIN-ов?

[Sazary]

Тема дубль
http://programmersforum.ru/showthread.php?t=43342

bonys91 нарываетесь на штраф.

[Levsha100]

Не знал...