Помогите с решением.Цикл.

[kola1010]

Пользователь вводит целые числа. Вывести сумму чисел, встречающихся более одного раза и при этом идущих подряд. 0 – метка остановки.
Пример: 2 3 3 8 5 4 4 4 -7 1 -1 -1 2 0

[Mad_Cat]

какой ответ в вашем примере?

[newerow1989]

Для разных чисел:

var n,n0,s:integer;
begin
   n0:=MaxInt;
   s:=0;
   Repeat
      Write('n = '); Readln(n);
      If n<>n0 then
         s:=s+n;
      n0:=n;
   Until n=0;
   Writeln('s = ',s);
   Readln;
end.

Для одинаковых чисел:

var n,n0,s:integer;
    d:boolean;
begin
   n0:=MaxInt;
   s:=0;
   d:=false;
   Repeat
      Write('n = '); Readln(n);
      If n=n0 then
      begin
         If not d then
            s:=s+n;
         s:=s+n;
         d:=true;
      end else
         d:=false;
      n0:=n;
   Until n=0;
   Writeln('s = ',s);
   Readln;
end.

[digitalis]

Как-то вот так...

program  abc ;
var 
  Arr: array [1..100] of integer ; 
  i,n,sum,n_gt_1,n_cur:  integer ;
begin
 { заполнение  массива }
   for i := 1 to 100 do
     begin
       writeln ('n=') ; readln (n) ;
       Arr[i] := n ;
       if n = 0 then Break ;
     end ;

{ анализ }
   sum := Arr[1] ; n_cur := sum ;  n_gt_1 := 1 ;
   for i := 2 to 100 do
     begin
      if Arr[i] = n_cur then
         begin sum := sum + Arr[i] ; Inc (n_gt_1) end
       else
         begin
           if n_gt_1>1 then
               writeln ('ind=',i,' element=',n_cur,' n=',n_gt_1,' sum=',sum) ;
           sum := Arr[i] ; n_cur := sum ; n_gt_1 := 1 ;
         end ;
      if Arr[i] = 0 then Break ;
     end ;
end.

Для приведенных данных результат будет такой :



Здесь "индекс" - индекс элемента массива, первого следующего за подряд идущими.
================
Предыдущее решение, даже дополненное, я не понял. Что значит : "Для разных чисел:", "Для одинаковых чисел:" ?
Есть 1 задача, для нее требуется 1 прога - и для одинаковых, и для разных, и для еще более разных чисел.
================
А с вопросчика - как с гуся вода : написали - и хрен с вами. Но не для него это писалось, а так, для разминки мозгов.

[kola1010]

Спасибо