1)
uses crt;
var i:integer;
A:array[0..15] of integer;
begin
For i:= 0 to 15 do
A[i]:= i+1;
For i:= 0 to 14 do
A[i]:= A[i+1];
For i:=0 to 15 do
write(A[i],' ');
end.
2) Перемещает первый элемент массива в конец.
Могу только на паскале
program poisk;
const
N=12;
var
C:array [1..N] of integer;
i,k:integer;
begin
k:=0;
for i:=1 to N do
read(C[i]);
for i:=1 to N do
if i mod 2 <> 0 then
k:=k+1;
writeln('Кол-во нечетных чисел='k)
end.
13. C (т.к. последнее было зануление д)
14. B (real)
15. C (24)
16.A (0)
17.D(15)
18.B (но вот что интересно, дак то что и под D подойдёт но не во всех случаях)
19.А
20.D (8) 20 mod 7(пол 6) + 5 div 4 * 2(пол 2) = 8
21. С (12)
22. B(43)
23.D(readln)
24.A(write)
25.C(end)
4 двоичных разряда - 16 значений. Либо от 0 до 15, либо от -7 до +7.