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

ПОМОГИТЕ ПОЖАЛУЙСТА!!!! ОЧЕНЬ СРОЧНО!!!! Значения вектора {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
Не нашли ответ?
Ответить на вопрос
Похожие вопросы