Пример циклического алгоритма из любой предметной области изучаемой в школе.

:изучили тему-> закрепили на практике-> написали кр->

Program spos; uses crt; var numb: array [1..100] of byte; // для последовательности чисел i,f: integer; //счетчик и переменная в качестве флага begin randomize; f: =0; for i: =1 to 100 do numb[i]: =random(101); // задает последовательность for i: =1 to 100 do begin write(',',numb[i]); // вывод на экран последовательность(можно удалить) if (numb[i]=77)then f: =1; // в случае удачной проверки f: =1, в противном останется 0 end; if f=0 then writeln('yes') else writeln('no'); end. program spos; uses crt; var numb: array [1..100] of byte; // для последовательности чисел i,f: integer; //счетчик и переменная в качестве флага begin randomize; f: =0; for i: =1 to 100 do begin numb[i]: =random(101); // задает последовательность write(' ',numb[i]); //вывод на экран, можно удалить end; writeln; i: =0; repeat i: =i+1; if (numb[i]=77)then f: =1; // в случае удачной проверки f: =1, в противном останется 0 until i< 100; if f=0 then writeln('yes') else writeln('no'); end.