Дан массив С размеров 10 элементов, элементы вводятся с клавиатуры. а) Найти сумму отрицательных элементов массива б) Поменять 1 и 5 элементы местами в) выполнить сортировку массива по возрастанию методом "пузырька"

const R=10; / /размер массива

fi=1; / /первый элемент массива

se=5; / /пятый элемент массива

Var a: array [1 ... R] of integer;

i, j, p, sum: integer;

begin

write ('Введите массив: ');

for i:=1 to R do read (a[i]);

//сумма отрицательных элементов массива

for i:=1 to R do

begin

if a[i]<0 then sum:=sum+a[i];

end;

Writeln ('а) Сумма отрицательных элементов массива равна ', sum);

//перемещение 1 и 5 элементов

p:=a[fi];

a[fi]:=a[se];

a[se]:=p;

Write ('б) Изменённый массив: ');

for i:=1 to R do write (a[i], ' ');

Writeln ();

//сортировка по возрастанию методом "пузырька"

for i:=1 to R-1 do

begin

for j:=1 to R-i do

if a[j]>a[j+1] then

begin

p:=a[j];

a[j]:=a[j+1];

a[j+1]:=p;

end;

end;

Write ('в) Отсортированный массив: ');

for i:=1 to R do write (a[i], ' ');

end.