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

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.

Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.