ВХОДЫэлектромагнитные волны (принимаемые радиоволны) электроэнергия (питание) мускульная сила человека (включение питания, переключение регуляторов) пыль (может вывести из строя, снижает яркость изображения) грязь (может вывести из строя, снижает яркость изображения) тепло (может вывести из строя) холод (может вывести из строя) регулятор громкости (изменяет громкость) кнопка включения/выключения стоимость (определяет класс телевизора, его функции и надежность) ВЫХОД свет (изображение) звук электромагнитные волны (изображение, радиопомехи) изображение цвет (цветность изображения) тепло (выделяемое телевизором тепло может нагревать сам телевизор и окружающие предметы - вплоть до возгорания) стоимость - зависит от класса телевизора, его функциональности и надежности, и определяет, будут ли его покупать и, соответственно, использовать)
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.
электроэнергия (питание)
мускульная сила человека (включение питания, переключение регуляторов)
пыль (может вывести из строя, снижает яркость изображения)
грязь (может вывести из строя, снижает яркость изображения)
тепло (может вывести из строя)
холод (может вывести из строя)
регулятор громкости (изменяет громкость)
кнопка включения/выключения
стоимость (определяет класс телевизора, его функции и надежность)
ВЫХОД
свет (изображение)
звук
электромагнитные волны (изображение, радиопомехи)
изображение
цвет (цветность изображения)
тепло (выделяемое телевизором тепло может нагревать сам телевизор и окружающие предметы - вплоть до возгорания)
стоимость - зависит от класса телевизора, его функциональности и надежности, и определяет, будут ли его покупать и, соответственно, использовать)
// 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