Помогите решить задачу

[Mihal]

Ребята, спасите!!!!!!!
Нужно составить алгоритм:
В одномерном массиве, состоящем из N вещественных элементов, вычислить количество элементов массива, лежащих в диапазоне от Л до В.
алгоритм должен быть составлен и записан с использованием стандартных условно-графических обозначений. Ввод значений вручную с клавиатуры.
N принять равным 10.

[OrtodokS]

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

Ребята, спасите!!!!!!!
Нужно составить алгоритм:
В одномерном массиве, состоящем из N вещественных элементов, вычислить количество элементов массива, лежащих в диапазоне от Л до В.
алгоритм должен быть составлен и записан с использованием стандартных условно-графических обозначений. Ввод значений вручную с клавиатуры.
N принять равным 10.

Если я правильно понял задачу:

var m:array[1..10] of real; i,k:integer; L,V:real;

begin

readln(L); readln(V); k:=0;
for i:=1 to 10 do
if (m[i]>=L)and(m[i]<=V) then k:=k+1;

writeln(k);
end.


Это на Паскале...

[Mihal]

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

Если я правильно понял задачу:

var m:array[1..10] of real; i,k:integer; L,V:real;

begin

readln(L); readln(V); k:=0;
for i:=1 to 10 do
if (m[i]>=L)and(m[i]<=V) then k:=k+1;

writeln(k);
end.


Это на Паскале...

чего-то не пашет. Может я чего не так сделал.Поясни пожалуйста.

[OrtodokS]

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

чего-то не пашет. Может я чего не так сделал.Поясни пожалуйста.

Ты в какой программе вообще работаешь?

[Mihal]

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

Ты в какой программе вообще работаешь?

Turbo Pascal

[OrtodokS]

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

Turbo Pascal

Странно, в Турбо Паскале как раз точно должно работать....

Что-нибудь пишет?

P.S. До меня дошло: элементы же массива не заданы....

Короче, вот полная программа:

var m:array[1..10] of real; i,k:integer; L,V:real;

begin

readln(L); readln(V); k:=0;

for i:=1 to 10 do m[i]:=random(100);

for i:=1 to 10 do
if (m[i]>=L)and(m[i]<=V) then k:=k+1;

writeln(k);
end.

[Mihal]

Пишет ошибка 104 по адресу 0001:002E