uses crt;
var i,n,r:integer;
    a,m:array[1..10] of real;
    s:real;
begin
 clrscr;
 randomize;
 s:=0;
 for i :=1 to 10 do
      begin
          a[i]:=random(20)-10;
          write('a[',i,']=',a[i],'; ');
          if a[i]>0 then a[i]:=i;
          
      end;
Writeln('Полученный массив:');
for i:=1 to 10 do  writeln('a[',i,']=',a[i]);
writeln;
writeln(s);
for i :=1 to 8 do
      begin
          m[i]:=random(100)-50; if m[i]>12 then s:=s+m[i];                  
      end;
Writeln('Полученный массив M:');
for i:=1 to 8 do  write('m[',i,']=',m[i],';   ');
writeln;
Writeln('Сумма=',s);
end.