1. Дан массив целых чисел, состоящий из 30 элементов. Заполнить его с клавиатуры. Найти:

-сумму отрицательных элементов;

-найти количество тех элементов, значения которых положительны и не превосходят заданного числа А

2. Найти номер последней пары соседних элементов с разными знаками.

Var

arr : array [1 ... 30] of integer;

sum, count, i, a : integer;

begin

read (a) ;

for i : = 1 to 30 do read (arr[i]) ;

count : = 0; sum : = 0;

for i : = 1 to 30 do

begin

if arr[i] < 0 then sum : = sum + arr[i]

else if (arr[i] > 0) and (arr[i] < = a) then count : = count + 1;

end;

writeln (sum, ' ', count) ;

end.

var

arr : array [1 ... 30] of integer;

i : integer;

begin

for i : = 1 to 30 do read (arr[i]) ;

for i : = 30 downto 2 do

if arr[i] * arr[i - 1] < 0 then / / проверка знака

begin

writeln (i - 1) ;

halt; / / Остановка программы

end;

writeln ('-1') ; / / Таких нет

end.