Var d:array[1..10] of integer;
s,i:integer;
Begin
s:=1;
For i:=1 to 10 do
begin
readln(d[i]);
If d[i]<>0
Then S:=S*d[i];
end;
Writeln(S);
end.
<span>Far Manager</span> - <span>системное программное обеспечение</span>
<span>Microsoft Excel</span> - <span>прикладное программное обеспечение</span>
1.Найти разность показаний счетчика на конец месяца и на начало месяца.
2.Умножить на цену одного Квт/часа
Согласна 5 ( 2 и 5 не перепутать )