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

• Было:

  program Series24; 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 begin St:=St+m[i]; if m[i]=0 then begin Sr:=St; St:=0; end; end; writeln(Sr); 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

  program Series24; 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   begin    St:=St+m[i];      if m[i]=0 then     begin      Sr:=St;      St:=0;     end;   end; writeln(Sr); end.

  Стало:

  program Series24; var i,N,Num,Sum,SumTemp :Integer; begin Write('N:'); Readln(N); SumTemp:=0; for i:=1 to N do begin write('Введите ',i,' элемент из набора :'); Readln(Num); SumTemp:=SumTemp+Num; if Num=0 then begin Sum:=SumTemp; SumTemp:=0; 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

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

  Ответить

• //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.Reverse.SkipWhile(t->t<>0).Skip(1).TakeWhile(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.Reverse.SkipWhile(t->t<>0).Skip(1).TakeWhile(t->t<>0).Sum); end.

  Ответить

  • Набор из N чисел, числа не определены и количество нулей!!!

    Ответить