uses crt;
var i,n,k:integer;
    a,m:array[1..100] of integer;
    
begin
 clrscr;
 randomize;
 k:=0;
 
 for i :=1 to 10 do
      begin
          a[i]:=random(20)-10;
          write('a[',i,']=',a[i],'; ');
          if a[i]>0 then  begin a[i]:=i; k:=k+1 end; 
          
      end;
Writeln('Полученный массив:');
for i:=1 to 10 do  writeln('a[',i,']=',a[i]);
writeln('количество положительных=',k);
end.