Циклические алгоритмы.составьтециклические алгоритмы.составьте - вопрос №2602665 от мозг1101 10.05.2022 08:12

Question

Информатика: Циклические алгоритмы.составьтециклические алгоритмы.составьте блок- схему для решения следующих : 1) вводятся 100 чисел.определить сколько среди них положительных и сколько отрицательных.(числа вводятся в одну переменную в цикле) 2) алгоритм вычисления суммы квадратов десяти производных чисел, водимых с клавиатуры в процесс выполнения алгоритма и напишите программу для каждой

мозг1101 · Answer

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.вроде так...