Вмассиве 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)false (т.к. x> y)

2)true (x< y,x не равен y)

3)false(x> y)

4)true(т.к. x=y, x не равен y)

 

совершенное число это число равное сумме своих делителей отличных от самого числа

var i, s,j : integer;

begin for i : = 5 to 200 do begin s : = 0; for j : = 1 to i div 2 do if (i mod j = 0) then s : = s + j; if s = i then writeln(i); end; end.