// PascalABC.NET 3.3, сборка 1627 от 27.01.2018
// Внимание! Если программа не работает, обновите версию!

begin
var n:=ReadInteger;
var a:=ReadArrReal(n);
var si:=a.IndexesOf(t->t=0);
if si.Count<2 then Writeln(0)
else Writeln(a[si.First+1:si.Last].Sum:0:3)
end.

Примеры
8
-4.6 3.9 0 2.4 1.7 0 0 2.1
4.100

5
0 0.244 -3.253 0 2.34
-3.009

0 0

4 года назад

Определите, что будет напечатано в результате выполнения следующей программы: program a7; var i,s:integer; sr:real; const a: arr

максим2000

Если это такая проблема скопировать код и выполнить его, то держите
Вывод
sr=4.5

0 0

4 года назад

задача: дано ребро куба найти объем куба

shevale75 [160]

Var a:real;

begin
   writeln('Введи длину ребра');
   readln(a);
   writeln(a*a*a);
end.

0 0

4 года назад

Значение арифметического выражения 9^8+3^24-18 записали в системе счисления с основанием 3. Сколько цифр 2 содержится в этой зап

SJL [7]

Результат вычисления выражения = 282472583184
В 3-ричной системе = 1000000002222222222222100
Кол-во цифр 2 = 13

9^8+3^24-18 = 3^24 + 3^16 - 2*3^2
3^24(3) = 1000000000000000000000000 - нет 2
3^16 - 3^2 (3) = 2222222222222200 - 16-2 = 14 двойки
3^16 - 3^2 - 3^2 (3) = 2222222222222100 - забирается 1 двойка
Ответ 14-1=13

0 0

4 года назад