Циклические алгоритмы.Составьте блок- схему для решения следующих задач:1) Вводятся 100...

Question

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

Answer 1

Var a,i,b,m:integer;
begin
for i:=1 to 100 do begin
read(a);
if a>0 then inc(b);
if a<0 then inc(m);<br>end;
writeln(b,' ',m);
end.

var i,a,r:integer;
begin
for i:=1 to 10 do begin
read(a);
r+=a*a;
end;
writeln(r);
end.

Comments

там алгоритм под другой цикл + в 1ом номере я бы добавил условие "x>0" т.к. 0 это не положительное число

---

я уже написал что в них не подходит для такого кода

---

просто вместо цикла for используйте цикл while