Cоставить, используя оператор цикла с параметром.
Добавлено: 05 дек 2013, 16:29
Задана последовательность из n вещественных чисел. Определить кол-во элементов последовательности, попадающих
в заданный интервал [a,b]( без разницы, интервал свой берешь 1..100, к примеру)
Хелп люди.
Или помогите разобраться, в чем ошибка?
в заданный интервал [a,b]( без разницы, интервал свой берешь 1..100, к примеру)
Хелп люди.
Или помогите разобраться, в чем ошибка?
Код: Выделить всё
uses
SysUtils;
Var N,kol,i:integer;
r,a,b:real;
begin
{ TODO -oUser -cConsole Main : Insert code here }
Write('Vvedite kolichestvo chicel=');
read(n);
write('Vvedite interlval a,b=');
Readln(a,b);
Writeln('Vvedite chislo=');
for i:=1 to n do
begin
readln(r);
if (r>=a) and (r<=b) then
kol:=kol+1;
End;
end.
Меня порадовало.