uses crt; const nmax=100; var a:array[1..nmax] of integer; n,i,k,i1,i2:byte; s:integer; f:boolean; begin clrscr; randomize; repeat write('Размер массива до ',nmax,' n='); readln(n); until n in [1..nmax]; writeln('Массив:'); for i:=1 to n do begin a[i]:=random(3); write(a[i]:4); end; writeln; writeln; i1:=0; i2:=0; k:=0;f:=true; for i:=n downto 1 do begin if a[i]=0 then k:=k+1; if (k=1)and f then begin i2:=i/первый с конца ноль f:=false;//фиксируем end;