100101101 вот это ответ на 301
#include <iostream>
using namespace std;
int main() {
int n, a[15], b[8];
cin >> n;
for(int i = 0; i < n; ++i) cin >> a[i];
int cnt = 0
for(int i = 1; i < n; i+=2) {
b[i / 2] = a[i];
++cnt;
}
cout << "Длина массива b: " << cnt << endl;
for(int i = 0; i < cnt; ++i) cout << b[i] << " ";
}
Стандартной функции, на сколько я знаю, нет, вот пример "самодельной" функции, возводящей число x в степень y:
function pow(x, y : integer) : integer;
var i, res : integer;
begin
res := 1;
for i:=1 to y do res := res*x;
pow := res;
end;
Const n=50;
var a:array [1..n] of integer;
i,k:integer;
begin
for i:=1 to n do begin
a[i]:=random (21)-10;
if a[i]=0 then k:=k+1;
write (a[i]:4);
end;
writeln ('кол-во нулей =',k);
end.