Вмассиве a(n) подсчитать количество минимальных элементов. в турбо паскале решите

Var   i: integer;       //   рабочая переменная для for   k: integer;       //   количество минимальных элементов   n: integer;       //   размер массива  m : array [1..10] of integer; // собственно сам массив   из "n" элементов   i_min : integer;   // индекс минимального элемента в массиве begin   n: =10;   k : = 0;   i_min : = 1;   for i : = 1 to n   do   begin     m[i] : = random(10);   // 10 - число от     if (m[i]< m[i_min]) then     begin       k : = 1;       i_min : = i     end     else       if (m[i]=m[i_min]) then         inc(k);   end;   // в переменной "k" - находится количество минимальных элементов end;

1. количество ядер процессора  2. частота процессора и частота системной шины (fsb) процессора  3. объем и количество кэш-памяти процессора (cpu)4. совпадение частоты системной шины cpu и материнской платы5. частота оперативной памяти (ram) и частота шины памяти материнской платы  6. объем оперативной памяти  7. используемый на материнской плате чипсет (intel, via, sis, nvidia, ati/amd)8. используемая графическая подсистема – встроенная в материнскую плату или дискретная  9. тип интерфейса винчестера (hdd) – параллельный ide или последовательные sata и sata-210. кэш винчестера

и это еще не все, можно продолжать. 

существует несколько стандартных разрешений монитора: 640 на 480, 800 на 600, 1024 на 768, 1280 на на 1024. т.е. 1310720 должно быть произведением этих параметров, получается разрешающая способность 1280 на 1024.

или

1280 x 1024 - это единственное стандартное разрешение, позволяющее вместить на экран ровно 1310720 px