Алгоритм ребенок-кукла, карта местность, планета глобус

Ребёнок-кукла: взять куклу. поиграть. накормить её.  расчесать ей волосы. переодеть её. уложить спать. карта-местность:   взять карту. осмотреть местность. исследовать карту. сопоставить карту и местность. определить маршрут. придерживаться его. планета-глобус:   найти место на глобусе. опредилить долготу. определить широту.

program n1; uses crt; const n=15; var a: array[1..n] of integer; b: array[1..n] of integer; i,k,max: integer; beginrandomize; clrscr; writeln('ishodny massiv'); for i: =1 to n do begin a[i]: =random(100); a[i]: =a[i]-50; write(a[i]: 4); end; writeln; writeln('polychenny massiv'); max: =0; for i: =1 to n do begin b[i]: =-a[i]; write(b[i]: 4); if a[i]=b[i] then k: =k+1; if (b[i]> 0)and(b[i]> max) then max: =b[i]; if (b[i]< 0)and(-b[i]> max) then max: =-b[i]; end; writeln; writeln('kolychestvo neizmenyvshihsa elementov=',k,', samyi bolshoy po modyly element raven =',max); writeln end.

uses crt; vara: array [1..9] of integer; i,c,m,n: integer; b: real; beginclrscr; randomize(); c: =1; for i: =1 to 9 dobeginif i=c thenbegina[i]: =i+3; c: =c+3; endelsebeginif i mod 3=0 then a[i]: =a[i-1]+a[i-2] else a[i]: =sqr(i-1); end; write(a[i],' '); end; readln(); end.

 

uses crt; var x,y,s,i,j: integer; a: array [1..15] of integer; beginclrscr; randomize(); writeln('vvedite chislo'); readln(x); writeln('ishodniy'); for i: =1 to 15 dobegina[i]: =random(100); write(a[i],' '); end; writeln; writeln; writeln('ispravlenniy'); for i: =1 to 15 dobeginif a[i]+i< x thenbegina[i]: =(a[i]+i)*2; s: =s+a[i]; textcolor(red); write(a[i],' '); end elsebegintextcolor(white); a[i]: =(a[i]+i); write(a[i],' ')end; end; writeln; textcolor(green); writeln('summa =',s); readln; end.