в паскале

[BumBum4ik]

помогите....уже неделю сижу над этим...подсчитать нужно колличество попарно одинкаовых элементов в типизированный файл(с процедуркой сделать).
если нужно могу кинуть набросок,но програмка не работает(((((вообще чтото не то(

[Poma][a]

eсли нужно могу кинуть набросок,но програмка не работает(((((вообще чтото не то(

Нужно(буквы-буквы-буквы)

[BumBum4ik]

var
    file_r: file of real;
    file_i: file of integer;
    file_t: text;
    i, n: integer;
    a: integer;
 
begin
    assign(file_r,'c:/rfile.txt');
    assign(file_i,'c:/ifile.txt');
    assign(file_t,'c:/tfile.txt');
 
    rewrite(file_r);
    rewrite(file_i);
    rewrite(file_t);
 
    write('n=');
    readln(n);
    for i:= 1 to n do begin
        write('a=');
        readln(a);
        write(file_r,a);
        write(file_i,a);
        write(file_t,a);
    end;
 
    close(file_r);
    close(file_i);
    close(file_t);
 
readln
end.

ну что скажете?де ошибка,что не так?

[Poma][a]

Не понятно условие

.подсчитать нужно колличество попарно одинкаовых элементов в типизированный файл(с процедуркой сделать).

Откуда берем элементы? Какого они типа? Куда записать кол-во элементов?

[BumBum4ik]

задание звучит так,:составить программу с процедурами:
в типизированный файл подсчитать колличество попарно одинаковых элементов.
элементы сами придумуются,неважно какого типа

[Poma][a]

Как-то так..

for i := 1 to n do
   a[i] = Random(100);

cnt := 0;
for i := 1 to n-1 do
   for j := i+1 to n do
       if a[i] = a[j] then Inc(cnt);

WriteLn (f, cnt)