var a:array[1...10] of integer;
var i, k1, k2:integer;
begin
for i := 1 to 10 do
read(a[i]);
end;
read(k1, k2);
for i := k1 to k2 do
write(a[i], ' ');
end.
Ответ:
C++
for(int i=0;i<n;i++)
if(a[i]%2==0)
swap (a[i],a[n/2])
Объяснение: