Series25. Дано целое число N и набор из N целых чисел, содержащий по крайней мере два нуля. Вывести сумму чисел из данного набора, расположенных между первым и последним нулем (если первый и последний нули идут подряд, то вывести 0).
Решение Pascal
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. |
Решение C
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 | #include <stdio.h> int main(void) { int n; printf("N:"); scanf("%i", &n); int i,r,sum=0,tempsum=0,f=0; for (i=1; i<=n; ++i){ printf(">"); scanf("%i", &r); tempsum+=r; if (r==0){ if (f) sum+=tempsum; else f=1; tempsum=0; } } printf("%i\n",sum); return 0; } |
На нашем сайте Вы можете заказать решение любой задачи по программированию на любом языке программирования
