Дан целочисленный массив размера n. преобразовать массив, увеличив его последнюю серию наибольшей длины на один элемент. паскаль

Type   v = array of integer; var   i, n, ic, nc, kc, imax, nmax, kmax: integer;   a: v; begin   write('введите количество чисел n ');   readln(n);   setlength(a, n + 1);   writeln('вводите числа');   for i : = 0 to n - 1 do read(a[i]);   writeln;   nmax : = -32768;   kmax : = 0;   imax : = 0;   nc : = a[0];   kc : = 1;   ic : = 1;   for i : = 1 to n - 1 do   begin       if a[i] = nc then kc : = kc + 1       else begin           if kc < 3 then begin               kc : = 1;               nc : = a[i];               ic : = i           end           else           if kmax < = kc then begin               kmax : = kc;               nmax : = nc;               imax : = ic;               kc: =1;               nc: =a[i];               ic: =i           end           else begin               kc : = 1;               nc : = a[i];               ic : = i           end       end   end;   if kmax < = kc then begin       kmax : = kc;       nmax : = nc;       imax : = ic   end;   writeln('самая длинная серия содержит ', kmax, ' чисел ', nmax);   for i: =n downto imax+kmax+1 do a[i]: =a[i-1];   a[imax+kmax]: =nmax;   writeln('модифицированная строка');   for i: =0 to n do write(a[i]: 2) end. тестовое решение введите количество чисел n 30 вводите числа 1 2 2 3 4 4 4 5 5 5 6 8 6 6 6 4 8 8 8 8 8 8 3 3 3 3 1 2 3 3 3 самая длинная серия содержит 6 чисел 8 модифицированная строка   1 2 2 3 4 4 4 5 5 5 6 8 6 6 6 4 8 8 8 8 8 8 8 3 3 3 3 1 2 3 3

Program   array129; var a:   array   [1..40]  of   integer; b:   array   [1..20]  of   integer; c:   array   [1..20]  of   integer; temp,m,n,i,j: integer; begin writeln('введите n (n< =20)'); readln(n); writeln('значения массива а'); for   i: =1  to   n  do  begin   write('a[',i,']='); readln(a[i]); b[i]: =i;   end; // решение  temp: =0; m: =0; // формируем из исходного массива a[] два с длиной серий b[] и значением серий c[]  for   i: =2  to   n  do begin inc(temp); if   a[i]< > a[i-1]  then begin inc(m); b[m]: =temp; c[m]: =a[i-1]; temp: =0; end; end; inc(temp); inc(m); b[m]: =temp; c[m]: =a[i]; // складываем массив a[] согласно .  temp: =1; for   i: =1  to   m  do begin if   b[i]> =b[temp]  then begin temp: =i; end; end; inc(b[temp]); temp: =0; for   i: =1  to   m  do begin for   j: =1  to   b[i]  do begin inc(temp); a[temp]: =c[i]; end; end; writeln; writeln('ответ'); write(' a[]: ');   for   i: =1  to   temp  do   write(a[i],' '); end.

type adrcel=^element; element=record info: integer; next: adrcel; end; var start,last,new_el: adrcel; i: integer;

procedure del2(var start: adrcel);

var

p: adrcel;

begin

p: =start^.next;

if p< > nil then start^.next: =p^.next

end;

begin start: =nil; last: =nil; new_el: =nil; repeat new(new_el); write('info='); readln(new_el^.info);

new_el^.next: =nil; if start=nil thenstart: =new_el; else begin

last: =start;

while last^.next< > nil do last: =last^.next; last^.next: =new_el; end; write('продолжить? (1-да/0-нет): '); readln(i); until i=0; writeln('удалим 2-й элемент');

del2(start);

new_el: =start; while new_el< > nil do begin write(new_el^.info: 4); new_el: =new_el^.next; end; readln; end.

пример программы для паскаль

program a;

const n = 50; vari: byte; b: array[1..n] of word; procedure proc(a: array of word); beginfor i: =1 to n doif((129 < = a[i]) and (a[i] < = 160)) or        ((161 < = a[i]) and (a[i] < =175)) or          ((225 < = a[i]) and (a[i] < = 242)) thenwriteln('index =  ',i+1,'; bukva -  ''',char(a[i]),'''','    a[i] =  ',a[i]); end;

beginwriteln; for i: =1 to n do              b[i] : = random(300); for i: =1 to n do begin                  write(' ',i,'  =  ',b[i]); if (i mod 5 = 0) then writeln; end; writeln; writeln; proc(b);           readln;

end.