Если не сложно, то помогите (тока подробно, т.к. я пока что не очень волоку в Паскале) с решением этой каверзной задачи. Заранее спасибо.

С клавы ввести 12 чисел. Подсчитать сумму положительных, произведение отрицательных чисел. Если среди вводимых чисел были 0, то напечатать сообщение об этом.

Dnevnoy DOZOR, чего не ясно?

var
  X, sum, p, zero: integer;
begin
  sum := 0; p := 1 ; zero := 0;

  for i := 1 to 12 do begin
    write('число №', i:2, ': '); readln(X);
    if X < 0 then p := p * X
    else if X > 0 then sum := sum + X
           else zero := zero + 1;
  end;
  writeln('сумма положительных = ', sum);
  writeln('произведение отрицательных = ', p);
  if zero > 0 then writeln('было ', zero, ' нулей');
end.

Дозор, в корзину тоже иногда заглядывать нужно, особенна когда твои темы туда улетают ... )

http://forum.pascal.net.ru/index.php?act=S...st=0#entry51561