Решить дан массив размер n.найти количество его локальных минимумов и локальных максимумов

Const   n=20; var   a: array[1..n] of integer;   i,nmax,nmin,k: integer;   to_min: boolean; begin   { инициализация массива случайными значениями }   randomize;   writeln('элементы массива');   for i : = 1 to n do   begin       a[i]: =random(99)+1; { интервал [1..99] }       write(a[i],' ');   end;   writeln;   { вот теперь массив действительно "задан" }   k: =a[1]; nmax: =0; nmin: =0; i: =1;   while (a[i]=k) and (i< =n) do inc(i);   if i< =n then begin to_min: =(a[i]< k); k: =a[i] end;   for i: =i+1 to n do   begin       if (k< a[i]) and to_min then           begin inc(nmin); to_min: =false end       else           if (k> a[i]) and (not to_min) then               begin inc(nmax); to_min: =true end;       k: =a[i]   end;   writeln('найдено локальных минимумов: ',nmin);   writeln('найдено локальных максимумов: ',nmax) end. тестовое решение: элементы массива 82 46 46 46 98 15 63 77 28 67 76 19 52 56 57 39 13 98 54 85 найдено локальных минимумов: 6 найдено локальных максимумов: 5

9кб = 9 * 8* 1024 бит = 73 728 бит 73 728 / 1024 - 73 728 / 2048 = 73 728 (1/1024-1/2048) = 73 728 / 2048 = 36 сек