Mihal

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

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.


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

Mihal

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

OrtodokS

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

Mihal

Turbo Pascal

OrtodokS

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

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

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