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

1.

var i, n:Integer; change:Boolean; m:array [1..100] of Integer;begin readln(n); change:=false; for i:=1 to n do begin read(m[i]); if (m[i]<0 and change=false) then begin m[i]:=0; change:=true; end; end; for i:=1 to n do write(m[i], ' ');end.

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.varbegin 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.