Question

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

Answer 1

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.