Задачи и их решения.

В этом посте я буду кидать различные задачки, не буду плодить много постов так что буду просто редактировать и добавлять..

Задача №1
Найти сколько раз каждый элемент встречается в массиве, дополнительных массивов не создавать. 

Program zad1;
var
 m: Array [1..10] of Integer;
 i,j,Count: Byte;
begin
 WriteLn('| Массив |');
 Randomize;
 for i := 1 to 10 do // Присваиваем каждый элемент массива рандомное число и выводим на экран.
  begin
  m[i] := Random(10)-5;
  Write(m[i],' ');
  end;
  Writeln;
 for j := 1 to 10 do // Сравнение элементов массива.
 begin
 Count := 0;
  for i := 1 to 10 do
   begin
    if m[j] = m[i] then // Сравнение массива j со всеми элементами массива
    begin
    Inc(Count); // Если элемент равен то прибавляем +1.
    end;
  end;
 WriteLn('Элемент: ',m[j],' встречался ',count,' раз.');
 end;
end.