Массив А (20) заполнить случайными целыми числами в диапазоне от - 30 до 30. Найти количество N попарных произведений А (I) * А (I+1) <0. Вывести А, все попарные произведения А (I) * А (I+1), N.

program zz1;

var mas:array[1 ... 20] of integer;

i, k:integer;

begin

for i:=1 to 20 do

mas[i]:=random (61) - 30; / /заполняем массив двадцатью рандомными числами из указанного диапазона

for i:=1 to 20 do

write (mas[i],' '); / /выводим массив на экран

writeln; / /переходим на новую строку для вывода

for i:=1 to 19 do

if (mas[i]*mas[i+1]<0) then begin writeln (mas[i],'*', mas[i+1],'=', mas[i]*mas[i+1]); k:=k+1; end; / /проверяем условие, считаем количество нужных произведений

writeln ('количество найденных произведений - ', k); / /выводим ответ

end.