Var
n,s,k,a,i:integer;
begin
Read(n);
s:=0; k:=0;
for i:=1 to n do begin
Read(a);
s:=s+a;
if a mod 2=0 then Inc(k)
end;
Writeln(s,' ',k)
end.
Результат
7 2 3 -2 4 -7 10 1
11 4
X0 = 1
xk = x×xk-1
x3=x*x2=x*(x*x1)=(x*(x*(*x)))=x^3
x = 4.
4^3=64
Ответ будет 5, так как массив начинается с нулевого элемента, то третьим будет 1, а первым будет 5
A[A[3]] = A[1] = 5
<h2>PascalABC.NET 3.4.2, сборка 1979 (16.02.2019)</h2>
- begin
- var arr := SeqRandomInteger(ReadInteger('N = ')).ToArray;
- arr.Println;
- Writeln('< 50: ', arr.Where(x -> (x < 50)).Average:3:2);
- Writeln('>= 50: ', arr.Where(x -> (x >= 50)).Average:3:2);
- end.
2 4 5 7 8
2 4 5 8 7
2 4 7 8 5
2 4 8 7 5
2 4 7 5 8
2 5 7 8 4
2 5 8 7 4
2 5 7 8 4
....................................................