Объяснение:
const
nm=100;
var
a: array[1..nm] of integer;
i,k,l,n,buf: integer;
begin
randomize;
write('vvedite n ');
readln(n);
writeln('ishodniy massiv:');
for i:=1 to n do
begin
a[i]:=random(99)+1;
write(a[i],' ');
end;
writeln;
write('vvedite k,l (k<l) : ');
readln(k,l);
for i:=k to (l-k)div 2+k do
begin
buf:=a[k];
a[k]:=a[l];
a[l]:=buf;
k:=k+1;
l:=l-1;
end;
for i:=1 to n do write(a[i],' ');
readln;
end.
const
nm=100;
var
a,b: array[1..nm] of integer;
i,n: integer;
begin
randomize;
write('vvedite n>10 ');
readln(n);
writeln('ishodniy massiv a:');
for i:=1 to n do
begin
a[i]:=random(99)+1;
write(a[i],' ');
end;
writeln;
for i:=1 to n do
if i<=10 then b[i]:=a[i]+i
else b[i]:=a[i]-i;
writeln('massiv b:');
for i:=1 to n do write(b[i],' ');
readln;
end.
