Помогите в Pascal

[Veselyn]

Задача

Дана последовательность действительных чисел a1, a2, ..., an. Указать те ее элементы, которые принадлежат отрезку [c,d].
Вот что написал:


PROGRAM program1;
Uses CRT;
Var
c, m, n, d :real;
Begin
clrscr;
Writeln ('torka diapazona c=',c);
readln(c);
writeln ('torka diapazona d=',d);
readln(d);
writeln ('otrezok ot: ',m);
readln(m);
writeln ('otrezok do: ',n);
readln(n);
if c>=m and n<=d then
wreteln ('[',c,'..',n,']');
else if c<=m and n>=d then
writeln ('[',m,'..',d,']');
else if c<=m and n<=d then
wreteln ('[',m,'..',n,']');
else if c>=m and n>=d then
writeln ('[',c,'..',d,']');
else if c>n then writeln ('Vne diapazona');
else if d<m then writeln ('Vne diapazona');
else if m>n then writeln ('doljno n<m ');
else if c>d then writeln ('doljno c<d ');
readln
end.

Пожалуйста откоректируйтею
P.S. буду очень признателен тому кто поможет.

[maladoy]

program mas;
uses crt;
var i:integer;
n,k:integer;
a:array[1..100] of real;
c,d:real;
begin
writeln('vvedite n');
readln (n);
writeln('vvedite c');
readln (c);
writeln('vvedite d');
readln (d);
write('ishodn.massiv:');
randomize;
for i:=1 to n do begin
a[i]:=random(20);
write('a[',i,']=',a[i]:4:2);
end;
writeln;
writeln('lejat v otrezke [',c:4:2,';',d:4:2,']:');
k:=0;
for i:=1 to n do
if (a[i]=>c) and(a[i]<=d) then 
begin write(a[i]:4:2) inc(k);end;
if k=0 then write('net takih');
readln;
end.

[Veselyn]

maladoy огромное тебе спасибо очень помог.

[Last]

а последовательность никак не задаётся? просто случайные числа?

[Antonio_M]

Last, да, просто случайные числа.
Можно конечно через тот же цикл задавать.

program mas;
uses crt;
var i:integer;
n,k:integer;
a:array[1..100] of real;
c,d:real;
begin
writeln('vvedite n');
readln (n);
writeln('vvedite c');
readln (c);
writeln('vvedite d');
readln (d);
for i:=1 to n do begin
writeln('vvedite element nomer ',i);
readln(a[i]);
end;
writeln;
writeln('lejat v otrezke [',c:4:2,';',d:4:2,']:');
k:=0;
for i:=1 to n do
if (a[i]=>c) and(a[i]<=d) then 
begin write(a[i]:4:2) inc(k);end;
if k=0 then write('net takih');
readln;
end.

[Veselyn]

Сообщение от Antonio_M

Last,

if (a[i]=>c) and(a[i]<=d) then

Почему в этой строке компилятор выдает ошибку? Запускается если
(a[i]>c) либо (a[i]=c). Как можно совместить?

[maladoy]

if (a[i]>=c) and(a[i]<=d) then

вот так должно быть

[Mikhail Bakurov]

if (a[i]=>c) and(a[i]<=d) then

Написано с ошибкой не =>, а >=

[Veselyn]

Спасибо работает