Значения вектора {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

Планета Земля кожного року проходить один і той самий шлях навколо Сонця. Кожного року відбувається зміна лір року: зима, весна, літо, осінь, а потім знову зима. Кожну добу день змінюється ніччю, а ніч - днем.

Циклічно змінюються фази Місяця: спочатку Місяць молодий, потім він росте, потім досягає повного Місяця, потім починає зменшуватися, і потім все починається спочатку.

Циклічні процеси відбуваються і в вашому житті. Кожного робочого дня ви встаєте, прибираєте постіль, робите фіззарядку, вмиваєтеся, снідаєте, складаєте портфель і йдете до школи. Кожного тижня уроки в школі відбуваються за одним і тим же самим порядком, який визначається розкладом, хоча, звичайно ж, можуть бути й непередбачені ситуації.

Водій веде автобус тю маршруту, кожного разу проїжджаючи одні й ті самі зупинки в однаковому порядку. Світлофор на перехресті налаштований так, що він через однакові проміжки часу запалює зелене світло, потім жовте, потім червоне, потім знову жовте, потім знову зелене і так далі.

Для выполнения различных задач в паскале нам понадобится выводить определенную информацию на экран.

Первый оператор вывода — это writeln ( write — писать , ln — сокр. линия ). Благодаря нему и осуществляется вывод информации на экран.Для вывода чисел на экран можно пользоваться кавычками , а можно и не пользоваться.Второй оператор вывода — write ( писать ). Он практически ничем не отличается от оператора вывода writeln , вернее ничем не отличается ( он также осуществляет вывод на экран ). Однако одно отличие все же есть , но совсем небольшое. Возможно вы уже поняли его ( исходя из название ).

Информация , которую оператор writeln() выводит на экран занимает всю строку.А значит после того , как оператор выведет последний элемент , программа переведется на следующую строку.

Объяснение:

Отметь мой ответ как лучший