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

1) var a:array[1..10] of real;
i:integer;

begin

randomize;
for i:=1 to 10 do begin
a[i]:= random(200) -100;
write(a[i]:5); end;

writeln;

for i:=1 to 10 do 
if a[i]gt;=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;
begin
write(Введите кол-во элементов: ); readln(n);
writeln(Введите элементы массивы: ); 
for i:=1 to n do
read(a[i]);

s1:=0; s2:=0;
for i:=1 to n do
if odd(i) then s1:=s1+a[i] else s2:=s2+a[i];

writeln(Сумма элементов с четными номерами: ,s2);
writeln(Сумма элементов с нечетными номерами: ,s1);
end.