Комментарии: Решаем задачи Абрамян на Паскале. Series25

Автор: я

Sun, 20 Oct 2019 14:31:11 +0000

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

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.

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.

Автор: Bronislav

Bronislav — Fri, 23 Feb 2018 14:21:03 +0000

//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.

//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.

Автор: Anton

Anton — Fri, 17 Feb 2017 05:51:04 +0000

В ответ на ShM. Нет всё ок. В переменной 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; то мы получим ... как бы это словами :) мы будем складывать суммы элементов от первого нуля до текущего.

Автор: ShM

ShM — Thu, 16 Feb 2017 19:49:59 +0000

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

Автор: Anton

Anton — Fri, 18 Dec 2015 05:28:05 +0000

Было:

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 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.

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;

Writeln(Sum);

end.