Укажите подсистему и надсистему объекту: часы.

подсистема - часовые стрелки, циферблат.

надсистема - корпус часов, стена,

 

// pascalabc.net 3.2, сборка 1417 от 28.03.2017 // внимание! если программа не работает, обновите версию! begin   var a: =arrrandom(readinteger('n=',20); a.println;   var imin: =a.indexmin;   writeln('номер минимального элемента- ',imin+1);   writeln('элементов, равных минимальному- ',           a.where(x-> x=a[imin]).count-1) end. пример n= 50 -13 17 18 10 -6 13 16 -12 -15 10 18 -7 -20 18 14 14 11 20 4 4 -10 6 -20 11 -2 4 7 -3 -20 -18 -6 11 -15 -8 16 11 -13 3 -5 2 6 7 -10 11 8 19 1 -11 16 -10 номер минимального элемента- 13 элементов, равных минимальному- 2

Python 3:

from random import randint

C = [randint(-100, 100) for _ in range(20)]

print(*C)

print(sum(filter(lambda el: el < 0, C)))

Аналог в PascalABC.NET:

begin

 var C := ArrRandomInteger(20, -100, 100);

 C.Println;

 C.Where(x -> x < 0).Sum.Print;

end.

Паскаль, в "старом" стиле:

var

 C: array[1..20] of integer;

 i, s: integer;

begin

 randomize();

 s := 0;

 for i := 1 to 20 do  

 begin

   C[i] := random(201) - 100;

   write(C[i], ' ');

   if C[i] < 0 then

     s := s + C[i];

 end;

 writeln();

 write(s)

end.