дан одномерный массив С1, С2, С3 .. С10. Каких элементов в данном массиве больше:...

Question

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

Answer 1

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.