ПОМОГИТЕ ПОЖАЛУЙСТА!!!! ОЧЕНЬ СРОЧНО!!!! Значения вектора {xi}, i=1,...,20 вводятся из тек?
ПОМОГИТЕ ПОЖАЛУЙСТА!!!! ОЧЕНЬ СРОЧНО!!!!
Значения вектора {xi}, i=1,...,20 вводятся из тек??тового файла. Требуется подсчитать количество его элементов, значения которых лежат в интервале [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
Не нашли ответ?
Похожие вопросы