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

247

315

Посмотреть ответы 2

Ответы на вопрос:

Dankytop

Информатика

4,4(3 оценок)

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