Массив элементтерінің оң сандарын қосу программасын құрыңыз создайте программу, чтобы положительные числа массивов прибавлялось и положительном.а отрицательные просто так стояли ну типа 5 -8 -2 3 -9 ответ: 8 (5+3)

Итак зацикливание в программировании - это ситуация, когда цикл написан таким образом ,что условия выхода из него не выполняется. рассмотрим зацикливание в операторах цикла for,while и repeat . справедливости ради все варианты будут рассмотрены в turbo pascal и pascalabc. также будет добавлен оператор write для вывода результатов. зацикливание в for вообще идея зацикливания проста : необходимо всего-то в каждом шаге цикла уменьшать оператор шага на 1 (i: =i-1; ) . однако именно такая реализация возможна не везде. рассмотрим простой пример. for i: =1 to 5 do begin i: =i-1; write(i); end. казалось бы все просто,да не тут то было.в то время как в turbo pascal все проходит на ура,в pascalabc такое не возможно и для зацикливания необходимо использовать оператор goto. label m; var i: integer; begin m: for i: =1 to 5 do begin write(i); if i=2 then goto m; end; end. зацикливание в while напомню,что в операторе while шаг цикла необходимо добавлять самостоятельно. поэтому произвести зацикливание проще всего : нужно только убрать шаг цикла var i: integer; begin i: =0; while i< > 1 do write(i); end. оба компилятора адекватно реагируют на пропуск шага. зацикливание в repeat для создание бесконечного цикла в этом случае, как и предыдущем, достаточно не указывать шаг цикла var i: integer; begin i: =0; repeat write(i); until i=1; end. тут вам различные варианты для создание бесконечного цикла. однако запомните,что зацикливание создает нагрузку и вообще редко используется. гораздо чаще применяют неполное зацикливание при котором выход из цикла все же совершается.

Как-то  так  var a,b,c,h,p,s: real; var ch: char; var f: boolean; begin repeat write('êàê ñ÷èòàåì ïëîùàäü? 1-ïî ãåðîíó, 2-÷åðåç ïîëîâèíó ïðîèçâåäåíèÿ îñíîâàíèÿ íà âûñîòó: '); readln(ch); if ch='1' then begin write('a='); read(a); write('b='); read(b); write('c='); read(c); p: =(a+b+c)/2; s: =sqrt(p*(p-a)*(p-b)*(p-c)); writeln('ïëîùàäü ðàâíà ',s); f: =true; end else if ch='2' then begin write('a='); read(a); write('h='); read(h); writeln('ïëîùàäü ðàâíà ',0.5*h*a); f: =true; end else begin cls; writeln('îòâåò ôèãîâûé! åùå ðàçîê: 1-ïî ãåðîíó, 2-÷åðåç ïîëîâèíó ïðîèçâåäåíèÿ îñíîâàíèÿ íà âûñîòó: '); end; until f; end.