Задача про 12 чисел., Нужна помощь. Опции

[Dnevnoy DOZOR]

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

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

[volvo]

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.

[klem4]

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

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