с 25 в ЕГЭ по инфе . Уже столько раз перерешивал , что просто не вижу ошибку . хэлп... Прикрепил и условие , и свое решение

Название эры Продолжительность млн лет Животный и растительный мир

Катархей начался около 4500 млн лет назад синтез первых органических соединений

Архей начался примерно 3500 млн лет назад фотосинтез, эукариотические клетки, половой процесс, многоклеточность

Протерозой начался 2500 млн лет назад двусторонняя симметрия, трехслойность, системы органив, задний отдел кишечника и анальное отверстие

Палеозой начался 534 млн лет назад появление организмов с минеральным скелетом, дифференцировка тела растений на ткани, разделение тела животных на отделы, образование челюстей, появления поясов конечноустей у позвоночных. Расчленение тела растений на органы, преобразование плавников в наземные конечности, появление органов воздушного дыхания, внутреннее оплодотворение, плотные яйцевые оболочки, ороговевание кожи, образование семян, образование пыльцевой трубки и семени

Мезозой начался около 248 млн лет назад 4-х камерное сердце, полное раздерение артериального и венозного кровотока, молочные железы, возникновение цветка и плода, образование матки

Кайнозой начался более 65 млн лет назад интенсивное развитие коры головного мозга, мышление, прямохождение

Объяснение:

здесь много напиши основную информацию

//Pascal
var
  A: array[1..10] of integer;
  i, Count: byte;
  sum: integer;
begin
  randomize;
  writeln('Сгенерированный массив');
  for i := 1 to 10 do
  begin
    A[i] := random(8)-3;
    if A[i] < 0 then
      sum := sum + A[i];
    write(A[i],' ');
  end;
  writeln;
  writeln('Сумма отрицательных элементов = ', sum);
  writeln;
  writeln('Измененный массив');
  for i := 1 to 10 do
  begin
    if A[i] >= 0 then
    begin
      A[i] := 0;
      Count := Count + 1;
     end;
    write(A[i], ' ');
  end;
  writeln;
  writeln('Количество нулевых элементов = ', Count);
end.