:( 1. игровая среда программирования -ЭТО программа (ТОЛЬКО ОДНО СЛОВО)
2. - ЭТО участок временной памяти компьютера, хранящий какое-либо значение. (ТОЛЬКО ОДНО СЛОВО)
3. - ЭТО отображения движения объекта на экране путем перемещения или изменения объекта (в программе Scratch)(ТОЛЬКО ОДНО СЛОВО)
3. - ЭТО отображения движения объекта на экране путем перемещения или изменения объекта (в программе Scratch)(ТОЛЬКО ОДНО СЛОВО)
5. В блоке Операторы, команды можно разделить на -..
6. автоматизированное устройство, созданное по принципу живого организма (ТОЛЬКО ОДНО СЛОВО)
7. LEGO MINDSTORMS EDUCATION EV3 это?
8. прибор для измерения разной информации?(ТОЛЬКО ОДНО СЛОВО)
9. из скольки элементов состоит робот ?
10. за что отвечает Гироскопический датчик ?(ТОЛЬКО ОДНО СЛОВО)

Вот на С++:

#include <iostream>
#include <sstream>
#include <fstream>
#include <string>
#include <vector>
#include <deque>
#include <queue>
#include <stack>
#include <set>
#include <map>
#include <algorithm>
#include <functional>
#include <cstring>
#include <utility>
#include <bitset>
#include <cmath>
#include <cstdlib>
#include <ctime>
#include <cstdio>
#include <climits>typedef unsigned long long ulol;
typedef long double ld;
typedef long long lol;
typedef long int  li;#define mp          make_pair
#define F           first
#define S           second
#define sqr(a)      ( (a) * (a) )
#define pb          push_back
#define INF         999999999
#define ret(a)      cout << endl; system("pause"); return(a)
//#define ret(a)      return(a)using namespace std;int main()
{
    ld x;
    cin >> x;
    x = ( 8 / sqrt( x ) ) + sqrt(x);
    cout << x;
    ret(0);
}

1. В "реальном мире" это решается примерно так:

// PascalABC.NET 3.1, сборка 1198 от 11.03.2016
begin
  var a:=ArrRandom(ReadInteger('n='),0,2); a.Println;
  a.Sorted.Println
end.

Тестовое решение:
n= 15
1 2 0 2 2 0 2 0 2 0 0 1 0 0 2
0 0 0 0 0 0 0 1 1 2 2 2 2 2 2

2. Но, поскольку считается, что школьникам больше заняться нечем, их заставляют писать примерно в таком стиле (и время займет, и ощибок понаделают):

// PascalABC.NET 3.1, сборка 1198 от 11.03.2016
const
  nn=100;
var
  i,j,n,t:integer;
  a:array[1..nn] of integer;
begin
  Write('n='); Read(n);
  Randomize;
  for i:=1 to n do begin
    a[i]:=Random(3);
    Write(a[i],' ')
    end;
  Writeln;
  for i:=1 to n-1 do
    for j:=1 to n-1 do
      if a[j]>a[j+1] then begin
        t:=a[j]; a[j]:=a[j+1]; a[j+1]:=t
        end;
  for i:=1 to n do Write(a[i],' ');
  Writeln;
end.

Тестовое решение:
n=15
0 1 1 0 2 1 0 2 1 2 1 0 0 2 0
0 0 0 0 0 0 1 1 1 1 1 2 2 2 2