Составить программу на языке паскаль. Составить блок схему.

Дан массив вещественных чисел. Ко всем отрицательным элементам прибавить элемент с номером, к остальным - элемент с номером.

Const

m=10;

var

i, s, n, m1, m2:integer;

a:array[1 ... m]of integer;

begin

write ('Исходный массив: ') ;

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.