Составить программу на языке паскаль. Составить блок схему. 
Дан массив вещественных чисел. Ко всем отрицательным элементам прибавить элемент с номером [tex] m_{1} [/tex], к остальным - элемент с номером [tex] m_{2} [/tex].

const  m=10;var  i,s,n,m1,m2:integer;  a:array[1..m]of integer;beginwrite('Исходный массив: ');for i:=1 to m do  begin  a[i]:=random(-5,10);  write(a[i],' ');  end;writeln;  repeat  write('Введите m1 и m2: ');  readln(m1,m2);  until (m1>0) and (m2>0) and (m1<=m) and (m2<=m);n:=a[m1];s:=a[m2];write('Измененный массив: ');for i:=1 to m do  begin  if a[i]<0 then a[i]:=a[i]+n    else a[i]:=a[i]+s;  write(a[i],' ');  end;end.