Дан одномерный массив С1, С2, С3 .. С10. Каких элементов в данном массиве больше: положительных или отрицательных??? ПОЖАЛУЙСТА, РЕБЯТ, ПОЛНОЕ РЕШЕНИЕ, ЗАВТРА СДАВАТЬ, А МНЕ 20 АНАЛОГИЧНЫХ ЗАДАЧ ДЕЛАТЬ((( ЗАРАНЕЕ СПАСИБО)))

const n = 10; var   a: array[1..n] of integer;   i, count: integer; begin   for i := 1 to n do begin     a[i] := random(5) - 4;     write(a[i], ' ');     if(a[i] < 0) then inc(count);   end;   if(count = 5) then writeln('Положительных и отрицательных элементов поровну.')     else if(count < 5) then writeln('Положительных эл. больше')       else writeln('Отрицательных эл. больше'); end.