1. В одномерном массиве произвольных чисел А(10) положительные элементы уменьшить в двое, а отрицательные элементы заменить на значения их индексов.
2. Дан массив из N элементов. Найти сумму элементов с четными номерами и отдельно – с нечетными номерами.

1) var a:array[1..10] of real;i:integer;beginrandomize;for i:=1 to 10 do begina[i]:= random(200) -100;write(a[i]:5); end;writeln;for i:=1 to 10 do if a[i]>=0 then a[i]:=a[i]/2 else a[i]:=i;write(a[i]:5);end.2) var a:array[1..1000] of real;s1,s2:real;i,n:integer;beginwrite('Введите кол-во элементов: '); readln(n);writeln('Введите элементы массивы: '); for i:=1 to n doread(a[i]);s1:=0; s2:=0;for i:=1 to n doif odd(i) then s1:=s1+a[i] else s2:=s2+a[i];writeln('Сумма элементов с четными номерами: ',s2);writeln('Сумма элементов с нечетными номерами: ',s1);end.