Задача с использованием массива

[Юля_0990]

ПОМОГИТЕ ПОЖАЛУЙСТА!!!
Задачу сделать двумя способами: без использования массива и с использованием массива. С клавиатуры вводятся вещественные числа b,c. Найти количество чисел последовательности, меньших чем с, и больших чем b.

[whatever]

С клавиатуры вводятся вещественные числа b,c.

А значит количество чисел последовательности равно бесконечности (если точнее, то отрезок [b,c] вообще не счётен), при b<c, и равно нулю, при b>=c

[Юля_0990]

а программу то как составить?

[m@xon]

If b>=c then writeln('0') else writeln('бесконечное множество значений');

Больше ни как=) Возможно вопрос задан некорректно? Формула последовательности дана?

[Юля_0990]

формула для последовательности к сожалению не задана...а как сделать с массивом?

[whatever]

Сообщение от Юля_0990

формула для последовательности к сожалению не задана...а как сделать с массивом?

Сделай себе одолжение, включи мозг, и подумай над тем, что тебе написали. Если и после этого ничего не будет смущать, то:

//без массивов
var
  b,c:real;
begin
  write('b = ');
  readln(b);
  write('c = ');
  readln(c);
  If b>=c then
    writeln('количество чисел последовательности равно нулю')
  else
    writeln('отрезок [',b:2:3,',',c:2:3,'] обладает мощностью континуума'); // о как! :)
  readln;
end.

//с массивами
var
  m:array[1..2]of real;
begin
  write('b = ');
  readln(m[1]);
  write('c = ');
  readln(m[2]);
  If m[1]>=m[2] then
    writeln('количество чисел последовательности равно нулю')
  else
    writeln('отрезок [',m[1]:2:3,',',m[2]:2:3,'] обладает мощностью континуума'); // о как! :)
  readln;
end.

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