Question

URGENT!!!!!
Elaborați un program care va afișa de câte ori se repetă fiecare element în tablou.

Answer 1

Răspuns:

const

 n = 20;

var

 a: array [1..n] of integer;

 i, j, b: integer;

begin

 Randomize;

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

 for i := 1 to n do write(a[i]:3);

 writeln;

 for i := 2 to n do

   for j := n downto i do

     if a[j] < a[j - 1] then begin

       b := a[j];

       a[j] := a[j - 1];

       a[j - 1] := b

     end;

 j := 1;

 write(a[1], ' : ');

 for i := 2 to n do

   if a[i] = a[i - 1] then Inc(j) else begin

     writeln(j);

     write(a[i], ' : ');

     j := 1

   end;

 writeln(j);

 readln

end.