Комментарии 5

• Было:

  Delphi/Pascal

  program Series23; const N=8; var i,Sr,St :Integer; m :array [1..N] of integer; begin for i:=1 to N do begin write('Введите ',i,' число из набора :'); Readln(m[i]); end; for i:=1 to N do if m[i]=0 then break; for i:=i to N do begin St:=St+m[i]; if m[i]=0 then Sr:=St; end; writeln(Sr); readln; end.

  1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22

  program Series23; const N=8; var i,Sr,St :Integer; m :array [1..N] of integer; begin for i:=1 to N do   begin    write('Введите ',i,' число из набора :');    Readln(m[i]);   end; for i:=1 to N do   if m[i]=0 then break; for i:=i to N do   begin    St:=St+m[i];    if m[i]=0 then Sr:=St;   end; writeln(Sr);   readln; end.

  Стало:

  program Series25; var i,N,Num,Sum,SumTemp :Integer; b:boolean; begin Write('N:'); Readln(N); SumTemp:=0; b:=False; for i:=1 to N do begin write('Введите ',i,' элемент набора :'); Readln(Num); SumTemp:=SumTemp+Num; if Num=0 then begin if not b then begin SumTemp:=0; b:=True; end; Sum:=SumTemp; end; end; Writeln(Sum); end.

  1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26

  program Series25; var   i,N,Num,Sum,SumTemp :Integer;   b:boolean; begin Write('N:'); Readln(N); SumTemp:=0; b:=False; for i:=1 to N do    begin     write('Введите ',i,' элемент набора :');     Readln(Num);     SumTemp:=SumTemp+Num;     if Num=0 then      begin       if not b then        begin         SumTemp:=0;         b:=True;        end;       Sum:=SumTemp;      end;    end; Writeln(Sum); end.

  Ответить

• Кажется, у вас небольшая опечатка в решении. Я считаю что на 22 строке должно быть Sum:=Sum+SumTemp; а не Sum:=SumTemp;

  Ответить

  • Нет всё ок.
    В переменной Sum я сохраняю возможный парвильный ответ. А сумма щитаетс в SumTemp.
    Сейчас попытаюсь описать алгоритм.
    SumTemp — храниться сумма от первого нуля.
    делается это следующим образом
    при вводе каждого нового элемента мы к прибавляем его к SumTemp SumTemp:=SumTemp+Num;

    Если встречаем 0
    if Num=0 then
    определяем первый ли он?
    if not b then
    если он первый b будет равнятся false
    Тогда зануляем SumTemp и b назначаем true
    begin
    SumTemp:=0;
    b:=True;
    end;
    Ну и каждый раз когда мы видим ноль мы сохраняем текущую SumTemp в Sum. Вдруг это последний ноль.
    Sum:=SumTemp;

    Когда мы вышли из цикла, показываем Sum там будет сумма элементов от первого нуля до последнего.

    Тоесть если заменить 20 строчку на Sum:=Sum+SumTemp; то мы получим … как бы это словами 🙂 мы будем складывать суммы элементов от первого нуля до текущего.

    Ответить

• //pascalABC.net begin var a:=Arr(7,2,8,3,7,0,5,3,1,2,6,1,0,5,10,3,0,5,1,9).Println; Print('Сумма между первым и последним нулями в наборе =', a.SkipWhile(t->t<>0).Reverse.SkipWhile(t->t<>0).Sum); end.

  1 2 3 4 5 6

  //pascalABC.net begin   var a:=Arr(7,2,8,3,7,0,5,3,1,2,6,1,0,5,10,3,0,5,1,9).Println;   Print('Сумма между первым и последним нулями в наборе =',     a.SkipWhile(t->t<>0).Reverse.SkipWhile(t->t<>0).Sum); end.

  Ответить

• почти так же сделал только ифы не вкладывал друг в друга

  var n,zn,s,total:integer; b:boolean; begin readln (n); for var i:=1 to n do begin readln (zn); s:=s+zn; if (zn=0) and (b=false) then begin s:=0;b:=true;end; if (zn=0) and (b=true) then total:=s; end; writeln ('Ответ: ',total); end.

  1 2 3 4 5 6 7 8 9 10 11 12 13 14

  var n,zn,s,total:integer; b:boolean; begin   readln (n);   for var i:=1 to n do   begin     readln (zn);     s:=s+zn;     if (zn=0) and (b=false) then begin s:=0;b:=true;end;     if (zn=0) and (b=true) then total:=s;   end; writeln ('Ответ: ',total); end.

  Ответить