Составить программу, которая создает текстовый файл, состоящий из N значений. Прочитать файл и определить есть ли в нем заданные с клавиатуры значения — Pascal(Паскаль)

uses crt;
var f:text;
    n,i,a,b:integer;
begin
clrscr;
assign(f,'chisla.txt');{связываем переменную с файлом}
rewrite(f);{открываем для записи}
write('Сколько значений ввести в файл? n=');
readln(n);
writeln('Введите в файл ',n, 'целых чисел:');
for i:=1 to n do
 begin
  readln(a);
  write(f,' ',a);{вводим числа в файл с пробелом впереди, если написать
                  write(f,a,' ');то при считывании будет лишний ноль}
 end;
clrscr;
write('Введите число для поиска в файле b=');
readln(b);
writeln('Содержание файла:');
reset(f);{открываем для чтения}
i:=0;
while not eof(f) do{пока не конец файла}
 begin
  read(f,a);{читаем числа}
  if a=b then i:=1;
  write(a,' ');
 end;
writeln;
close(f);{закрываем файл}
if i=1 then write('Число ',b,' есть в файле')
else write('Числа ',b,' нет в файле');
readln
end.

Leave a Comment

21 − = 14