Значения вектора {xi}, i= вводятся из текстового файла. требуется подсчитать количество его элементов, значения которых лежат в интервале [0,1].

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; 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

program fasf;

var

n,q: integer;

begin

write('введите этаж: ');

readln(n);

q: =n*4;  

writeln('квартиры: ',q,q-1,q-2,q-3);

end.