var
a,b:array [1..15] of integer;
i,j,sum,summ,count,M,c,x:integer;
g:real;
begin
writeln('Введите массив');
for i:=1 to 15 do
read(a[i]);
j:=0;
for i:=1 to 15 do begin
j:=j+1;
b[j]:=a[i]*a[i]*a[i];
end;
writeln('Массив B:');
for j:=1 to 15 do
write(b[j],' ');
for j:=4 to 11 do
sum:=sum+b[j];
writeln('');
writeln('Сумма элементов с 4 до 11:');
writeln(sum);
writeln('Элементы массива кратные 5 и их индекс:');
for j:=1 to 15 do
if b[j] mod 5=0 then begin
write('b[',j,'] = ',b[j],' ');
end;
writeln('');
for j:=2+2 to 14 do
summ:=summ+b[j];
writeln('Сумма элементов c четным индексом ');
writeln(summ);
writeln('Введите M');
read(M);
for j:=1 to 15 do begin
if (b[j]<M) and (b[j] mod 2=0) then
write('b[',j,'] ');
end;
writeln(' ');
writeln('Элемент массива /7 с остатком 3:');
for j:=1 to 15 do
if (b[j]<0) and (b[j] mod 7=3) then begin
write('b[',j,'] ');
break;
end;
writeln(' ');
writeln('Количество положительных элементов');
for j:=1 to 15 do
if b[j]>0 then begin
count:=count+1;
end;
writeln(count);
writeln('Корень из положительных элементов');
for j:=1 to 15 do
if b[j]>0 then begin
g:=sqrt(b[j]);
write(g,' ');
end;
writeln('');
writeln('Убираем элементы массива кратные 3 на нечетных местах');
i:=1;
for j:=1+2 to 15 do begin
if b[j] mod 3 = 0 then begin
a[i]:=b[j];
i:=i+1;
c:=c+1
end;
end;
for i:=1 to c do begin
write(b[i],' ');
end;
writeln('');
writeln('Меняем второй элемент массива и первый четный (ыводится получившийся массив)');
for j:=1 to 15 do begin
if b[j] mod 2 = 0 then begin 
x:=b[2];
b[2] := b[j];
b[j] := x;
break;
end;
end;
writeln('b[2] = ',b[2],' поменяли с ',b[j]);
end.