Дан массив а [12] подсчитать сумму отрицательных элементов массива. значения элементов массива целые числа от -20 до 20

Const n=12;   var   a: array[1..n] of integer;   i,s: integer; begin randomize; writeln('исходный массив: '); for i: =1 to n do begin   a[i]: =random(41)-20;   write(a[i]: 4) end; writeln; s: =0; for i: =1 to n do    if a[i] < 0 then s: =s+a[i]; writeln('s = ',s); end. пример: исходный массив:   -21   -5 -22   17   5   -8 -20   -3   25   -6   -6   21 s = -91

Ты фотографию скинь сначала, а потом решение проси 

А) например, фамилии в списке класса или телефонном справочнике; слова в словаре

б) Города в списке "самых больших по численности населения", "по площади".

в)запись событий в дневнике

Столкнулись в пункте х