помогите с прогой на паскале

[glasian]

задан массив, значение элементов которого являются целые числа от 0 до 9,кол-во элементов 40/50.Определить кол-во повторения каждого числа.

[glasian]

заранее благодарен.

[glasian]

program spec;

var a:array[1..50] of 0..9;b:array [0..9] of byte;c:set of 0..9;
ss:string;s:text;
i,n:byte;begin write('I7yTb k o|oAu`JIy,,,,,N');read(ss,n);
assign(s,ss);reset(s);c:=[];for i:=0 to 9 do c:=c+[i];
for i:=1 to n do begin read(s,a[i]);if a[i] in c then inc(b[a[i]]);end;
for i:=0 to 9 do writeln('chislo',i,' ',b[i],'raz');readln;end.


она должна выводить повторяющиеся числа из вн файла а она мне показывает что повторяющихся чисел нет.
внешний файл:2 3 4 5 6 7 8 9 8 7 6 5 4 2 3 5 7 9

[OLEG'arh]

var a:array[1..50] of 0..9;b:array [0..9] of byte;c:set of 0..9;
ss:string;s:text;
i,n,j:byte;begin write('I7yTb k o|oAu`JIy,,,,,N');read(ss,n);
assign(s,ss);reset(s);c:=[];for i:=0 to 9 do c:=c+[i];
for i:=1 to n do
for j:=0 to 9 do
begin
read(s,a[i]);
if a[i] in c then inc(b[a[j]]);
end;
for i:=0 to 9 do writeln('chislo',i,' ',b[i],'raz');readln;end.

[Карась]

omg. Вот это форматирование кода... Вот это я понимаю..... круто.......
Сам то понимаешь что там написанно?

Вот нормальное форматирование. Всё разбито на блоки и понятно что кто делает в програме.

Var x, z : Integer;
      Mass : Array [1..50] of Integer;
     M : Array [0..9] of Integer;

Begin

Randomize;
For x := 1 To 50 Do
  Begin
    Mass[x] := Random(10);
    Write(Mass[x], ' ');
  End;

For x := 1 To 50 Do
For z := 0 To 9 Do If Mass[x] = z Then M[z] := M[z] + 1;

Writeln;
For x := 0 To 9 Do Writeln(x, ': ', M[x]);

Readln;
End.

[zetrix]

Код безобразно оформлен!

Создаётся впечатление, что при вводе N (read(ss,n) вы вводите строку (путь к файлу) и жмёте Enter... Либо как-то иначе. Вообщем N скорее всего равно 0. И программа ничего не читает из файла.

[glasian]

спасибо большое

[glasian]

а может кто-нибудь может сделать так чтоб прога читала из вн.файла?

[Карась]

Вот простой пример заполнения двумерного массива из файла:

Var x, y : Integer;
      mass : array [1..10, 1..10] of Integer;
      F : TextFile;

Begin
AssignFile(F, 'In.txt');
Reset(F);

For x := 1 To 10 Do
  For y := 1 To 10 Do
    Read(F, mass[x,y]);

CloseFile(F);

Writeln;

For x := 1 To 10 Do
  Begin
    For y := 1 To 10 Do
      Write(mass[x,y], ' ');
    Writeln;
  End;

Readln;
End.