Готово..............................................................
Var n, i, a, sum: Integer;
Begin
sum := 0;
readln(n);
for i := 1 to n do begin
read(a);
if a mod 5=0 then sum := sum + a;
end;
writeln(sum);
End.
65(7)=5+6*7=47(10)
47(10)=101111(2)
<em>// PascalABC.NET 3.2, сборка 1344 от 22.11.2016</em>
function CM(a:array of integer):real;
// среднее геометрическое элементов с четным значением, большим 10
begin
Result:=1;
var k:=0;
foreach var x in a do
if x.IsEven and (x>10) then begin Result*=x; k+=1 end;
if k>0 then Result:=Power(Result,1/k) else Result:=1
end;
begin
var C:=ArrRandom(10,1,30); C.Println;
Writeln(CM(C));
var M:=ArrRandom(10,1,30); M.Println;
Writeln(CM(M));
end.
Пример
13 26 18 28 8 30 15 29 21 5
25.039824738313
20 1 1 28 28 29 3 20 3 15
23.6643191323985
А)19=10011=23=13
б) 231=11100111=347=Е7
в) 506=111111010=772=1FA
г)57,105=111001,00011=71,06514=2F,1AE14