1. Заменить отрицательный эллемент нулем.

2. Дан массив целых чисел. Найти сумму элементов массива, больших данного числа А (А вводить с клавиатуры).

3. Определить есть ли 2 пары соседних элементов с одинаковыми знаками. Паскаль.

2.

var a, n, i, sum, x:Integer;

begin

readln (a, n) ;

sum:=0;

for i:=1 to n do

begin

read (x) ;

if (x>a)

then

sum:=sum+x;

end;

writeln ('Сумма: ', x) ;

end.

3.

var

begin

readln (n) ;

pairs:=0;

if (n>0)

then

read (x) ;

last:=x;

for i:=2 to n do

begin

read (x) ;

if (x>-1 and last>-1 or x<0 and last<0)

then

inc (pairs) ;

last:=x;

end;

if (pairs>1)

then

writeln ('Yes.') ;

else

writeln ('No.') ;

end.