1)составить алгоритм нахождения количества положительных элементов с последовательностью целых чисел b1, b2, b3, bn 2)составить алгоритм и блок-схему нахождения произведения отрицательных чисел с последовательностью a1, a2, a3, an

Ненавижу блок-схемы х))

Const   n=15; var   a: array[1..n] of integer;   i,k,s: integer; begin   randomize;   write('массив: ');   k: =0;   for i: =1 to n do begin       a[i]: =random(21)-10;       write(a[i],' ');       if a[i]=0 then k: =i;       end;   writeln;   s: =0;   for i: =1 to k-1 do s: =s+a[i];   writeln('сумма элементов перед последним нулевым равна ',s) end. пример массив: -8 10 6 9 1 -3 2 -5 -6 0 -8 -2 -4 2 -4 сумма элементов перед последним нулевым равна 6

Только в pascalabc.net const   dm: array[0..11] of integer=(31,29,31,30,31,30,31,31,30,31,30,31); type   месяц =(янв,фев,мар,апр,май,июн,июл,авг,сен,окт,ноя,дек); var   k: 1..366;   d: 1..31;   m: месяц;   s: integer; begin   write('введите номер дня: '); read(k);   s: =k; m: =янв;   repeat       s: =s-dm[ord(m)];       if s> 0 then m: =succ(m)   until s< =0;   d: =s+dm[ord(m)];   writeln(d,' ',m) end. пример введите номер дня: 308 3 ноя