Const n=20;
var f1:text;
x:array[1..n] of real; i,k:integer;
begin
assign(f1,'f1.txt');
reset(f1);
i:=0; k:=0;
while not eof(f1) do
begin
i:=i+1;
read(f1,x[i]);
if (x[i]>=0)and(x[i]<=1) then k:=k+1;<br>end;
close(f1);
writeln('k = ',k);
end.
Пример (для i=1, ..., 10):
Файл f1.txt:
0.56
1.62
-0.27
1.44
-1.47
0.74
-1.82
-1.80
-1.76
0.72
Результат работы программы:
k = 3