Постройте блок-схему алгоритма для решения следующей : «найти произведение и количество отрицательных членов последовательности t1, t2, th»побудуйте блок-схему алгоритму для розв’язання наступної і: «знайти добуток та кількість від’ємних членів послідовності t1, t2, …, th»

begin

 var Q := new Queue<integer>;

 SeqRandom(14, 0, 80).ForEach(t -> begin Q.Enqueue(t) end); // заполнили

 Q.Println;

 var m := Trunc(Q.Where(t -> t mod 5 = 0).DefaultIfEmpty.Average); // среднее

 Q.Enqueue(m);

 Q.Println;

 // удаление

 var L:=Q.ToList; // переписать в список

 L.RemoveAt(4); // удалить 5-й элемент

 Q.Clear; // очистить очередь

 foreach var t in L do // поэлементное добавление

   Q.Enqueue(t);

 Q.Println

end.

#include <iostream>

#include <list>

#include <algorithm>

#include <iterator>

#include <cctype>

int main()

{

   std::list<char> lt{'5', 'a', 'c','g', '7', 't', '!'};

   std::cout << std::endl;

   std::copy(lt.begin(), lt.end(), std::ostream_iterator<char>(std::cout, " "));

   lt.remove_if([](char& var1)

   {

       return !(std::tolower(var1, std::locale()) >= 'a' && std::tolower(var1, std::locale()) <= 'z');

   });

   std::cout << std::endl;

   std::copy(lt.begin(), lt.end(), std::ostream_iterator<char>(std::cout, " "));

}