Циклические алгоритмы.СоставьтеЦиклические алгоритмы.Составьте блок- схему для решения следующих задач:
1) Вводятся 100 чисел.Определить сколько среди них положительных и сколько отрицательных.(Числа вводятся в одну переменную в цикле)
2) Алгоритм вычисления суммы квадратов десяти производных чисел, водимых с клавиатуры в процесс выполнения алгоритма
И НАПИШИТЕ ПРОГРАММУ ДЛЯ КАЖДОЙ ЗАДАЧИ

1) var a,i ,b,c:integer;beginb:=0c:=0for i = 1 to 100 do beginreadln (a);if a>0 thenb:=b+1;if b<0 thenc:=c+1;end;writeln (b);writeln (c);end.2)var a,b,i:integer;beginb:=0;for i = 1 to 10 dobeginreadln (a);a:=a*a;b:=b+a;end;writeln (b);end.вроде так