Как найти количество одинаковых чисел в типизированном файле состоящем из случ. чисел?

Question

Поделиться 0

Как найти количество одинаковых чисел в типизированном файле состоящем из случ. чисел?

12 лет

program ryt;
var f:file of integer;
    x,max,i,j,y,a:integer;
begin
assign (f,'D:\intr.txt');
rewrite (f);
randomize;
J:=random(100);
for i:=1 to j do
  begin
   x:=random(100);
   write(f,x);
  end;
close(f);
reset(f);
for i:=1 to fileSize(f) do
   begin
     read(f,x);
     write(x:4);
   end;
writeln;

начало есть)

12 лет Просмотров: 203

0 0

Answer 1

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

Ответы

Похожие вопросы