Разработать в среде Turbo Pascal программу удаления заданных элементов массива - Turbo Pascal - Ответ 13583530

uses crt;
var a:array[1..100] of integer;
    n,i,j,kol,m,k:integer;
begin
clrscr;
repeat
write('Введите размер массива от 10 до 100 n=');
readln(n);
until n in [10..100];
randomize;
writeln('Исходный массив');
for i:=1 to n do
 begin
  repeat
   a[i]:=-10+random(21);
   until a[i]<>0;
  write(a[i]:4);
 end;
writeln;
kol:=0;
i:=2;
while i<n do
if a[i]>a[i-1] then
 begin
  inc(kol);
  j:=i;
  while(j<=n)and(a[j]>a[j-1]) do inc(j);
  if j<=n then i:=j;
 end
else inc(i);
writeln('Количество участков возрастания=',kol);
if odd(n) then m:=n div 2+1 else m:=n div 2;
for i:=1 to n div 2 do
 begin
  k:=a[i];
  a[i]:=a[m+i];
  a[m+i]:=k;
 end;
writeln('Обмен первой и второй половин массива');
for i:=1 to n do
write(a[i]:4);
writeln;
if odd(n) then m:=n-1 else m:=n;
i:=2;
while i<=n do
 begin
  for j:=i to n-1 do
  a[j]:=a[j+1];
  dec(n);
  inc(i);
 end;
writeln('Удаление элементов с четными номерами');
for i:=1 to n do
write(a[i]:4);
readln
end.