Дан текстовый файл. Вывести на экран те символы которые встречаются в нем ровно один раз.

Читай посимвольно и считай количество появлений каждого символа в массив
array[0..255]of integer
потом выведи те символы, у которых значение массива равно 1

Символы, наверное, имеются в виду неуправляющие..
Примерно так можно:

  f:file of byte;
  a:array[33..255]of integer;
  b:byte;
....
  for i:=33 to 255 do a[i]:=0;
  while not EoF(f) do begin
    Read(f,b);
    if b>32 then Inc(a[b])
  end;
  for i:=33 to 255 do if a[i]=1 then Write(Char(i))

Это что приказ ? Уже можно выпполнять ?


Ты сам хоть что-нибудь сделал ? Если нет, то привиди хоть одну вескую причину по которой кто-то должн сесть и сделать эту задачу (неоднократно решенную на офруме) еще раз, ЗА тебя.

решение lapp скрыто

Как вывести содержимое файла на экран это не проблема. Я просто не знаю алгоритм который находит числа встречающиеся один раз.

Открываю тебе вариант lapp'a, раз уж сам ничего придумать не смог.

Правда я бы делал немного по другому, читал бы строками, раз уж файл тектсовый

arr : array [char] of integer;
...
readln(f, s);
for i := 1 to length(s) do inc(arr[s[i]]);
...

close(f);
...

for i := 32 to 255 do
 if arr[char(i)] = 1 then writeln(char(i));
...

uses crt;
var
s:array [char] of integer;
f:file of string;
a:string;
i:integer;
begin clrscr;
assign(f,'c:\1.txt');
reset(f);
read(f,a);
for i:= 1 to length(a) do inc(s[a[i]]);
begin
writeln('Не повторяющиеся символы:');
writeln;
for i:=1 to 255 do
if s[char(i)] = 1 then writeln(char(i));
end;
readln;
close(f);
end.

Во-первых, тегами пользуйся... А во-вторых, тебе же так и подсказали, зачем постить уже данное решение еще раз?