1) дан целочисленный массив размера n. назовем серией группу подряд идущих одинаковых элементов, а длиной серии — количество этих элементов (длина серии может быть равна 1)  вставить перед каждой серией нулевой элемент

Program project1; uses crt,math; constn=10; var    s: real;     i,f,m: byte;     a: array [1..10] of real; begin    m: =0;     for i: =1 to n do    begin    writeln('vvedite ',i,' cifru'); readln(a[i]);   end;   for i: =1 to n do    begin   if a[i]< 0 then    inc(f);     end;     for i: =1 to n do    begin    if a[i]=0 then    inc(m);     if m< > 0 then    s: =s+a[i];     end;   writeln('kolichestvo otricatelnih: ',f: 2);   writeln('summa vseh posle 0: ',s: 2: 2);   readln; end.

Program project1; uses crt,math; const n=3; var  s: real;     i,j,f: byte;   a: array [1..n, 1..n] of integer; begin    for i: =1 to n do  begin    for j: =1 to n do   begin    write('vvedite ',i,'.',j,' cifru '); readln(a[i,j]);     end;     end;   for i: =1 to n do  begin    for j: =1 to n do   begin    if (a[i,3]=1) then  inc(f);   end;     end;   writeln('1 vstrechaetsya: ',f: 2,' raz');   readln; end.