Во многих смартфонах установлен датчик, определяющий положение в пространстве. он делает работу с устройствами гораздо более удобной. этому датчику, если вы поворачиваете смартфон, автоматически поворачивается и экран. речь идет о …

Акселерометр: измерив ускорение, можно узнать угол наклона, что и требуется

Речь идёт о акселерометре

Program project2; {$apptype console} uses  sysutils,windows; constnmin=1; nmax=20; typemas=array[nmin..nmax] of integer; vara: mas; i: integer; s: real; begin  setconsolecp(1251);   setconsoleoutputcp(1251);   randomize; for i: =1 to   nmax doa[i]: =random(1000)-500; writeln ('ìàññèâ: ');   for i: =1 to   nmax do  beginwrite (''); write   (a[i]: 2); writeln (''); end; s: =0; for i: =1 to nmax dobeginif a[i]< 0 thens: =s+a[i]; end; writeln ('ñóììà îòðèöàòåëüíûõ ýëåìåíòîâ ìàññèâà = ',s: 2: 2); readln; end.

Var  a: array[1..100] of integer;     i, n: integer;   p: integer;       begin  randomize;     writeln('massiv: ');   readln(n);   for i : = 1 to n do    a[i] : = random(10) - 5;     writeln('исходный массив: ');   for i : = 1 to n do    write(a[i], ' ');     p: =1;   for i : = 1 to n do        if (a[i]> 0) and (i mod 2=0) then p: =p*a[i];       writeln('произведение   =',p);   readln.     end.