var a: array[0..9] of Integer;
i,k,b,c: Integer;
begin
for i:=0 to 9 do
begin
a[i]:=Random(100);
writeln(i+1,' число: ',a[i]);
end;
for i:=0 to 9 do
begin
for k:=0 to 9 do
begin
if a[i]<a[k] then
begin
b:=a[i];
c:=a[k];
a[i]:=c;
a[k]:=b;
k:=0;
end;
end;
end;
writeln('Числа по возрастанию:');
for i:=0 to 9 do
writeln(i+1,' число: ',a[i]);
begin
end;
end.
тут немного больше чем надо
Рассмотрим подробнее 1 этап – по с 1730-40-х годы 18 века. С точки зрения современного человека – отсталая экономика, отсталое мануфактурное производство. Английские авторы показали, что экономика в этот период в европейских странах была с высокой степенью энергонасыщенности. Примерно действовало до 600 тысяч ветряных и водяных мельниц, в том числе колеса диаметром до 10-12 метров. Фактически на каждые 23 рабочих приходился 1 движитель – водяной или ветряной. Впервые первые приспособления, специализация инструментов начинается в текстильном производстве. Производство различных видов пряжи и тканей требует различных специальных приемов и инструментов. Отсюда идет диверсификация, т.е. разнообразие инструментов, которыми чешут, прядут, ткут и т.п. Наличие механических двигателей, водяных или ветряных, способствует развитию токарного искусства в виде токарных или примитивно-токарных станков. Дело в том, что кость, дерево или металл закрепляют во вращающемся шпинделе, а резец подводят рукой. Так точил свои изделия Петр 1 в токарной мастерской. Наличие этих водяных двигателей мощных позволяет развивать металлообработку. В Германии и в Швеции в начале 18 века изобретают водяные ножницы, которые могут резать полосовое железо, стальную проволоку. С начала 18 века в Швейцарии и других германских землях, а затем во всей Европе начинают отливать пушечные стволы и высверливать их, сначала вертикально, а затем горизонтально. Тогда же начинаются первые попытки создания нового двигателя – парового двигателя. Впервые очень примитивный паровой двигатель был изобретен Блазом Декараем в Испании в 1556 году. А к концу 17 - середине 18 века уже действовали паровые машины, в том числе ввозились в Россию с Запада, правда с низким КПД (коэффициент полезного действия), около 1\%. Эти паровые машины использовали в частности для осушения доков, шахт у нас в Кронштадте. И на Урале. Этот водяной, ветряной двигатель – встал вопрос о передаче этой энергии движения на рабочие колеса, инструменты и т.д. Поэтому к середине 17 века усовершенствуется цепная передача (как в велосипеде). С середины-2-й половины 18 века начинает широко применяться ременная передача (натянутый ремень) и всевозможные зубчатые шестерни, зацепления, которые энергию движения передают. А в начале 18 века в 1710 году изобретаются роликовые, а в 1734 году шариковые подшипники, которые позволяют передавать движение с наименьшей потерей энергии. Тогда же появляются первые пред-рабочие машины. Сначала в Голландии и в Германских землях. 17 век – в Утрехте создается машина, которая автоматически прядет веревки, канаты. В Нюренберге в 1685 году создается машина, которая из проволоки автоматически делает гвозди со шляпками. До этого гвозди штучно выковывали в кузницах. Однако на этих территориях сложились очень серьезные вековые традиции, а это означает, что ремесленники выступают против введения этих машин, которые резко ускоряют производительность труда и оставляют ремесленников без рынка сбыта. Поэтому первоначально эти машины запрещаются, публично сжигаются. <span>А в Англии, которая к этому времени уже покончила с этими традиционными цеховыми ограничениями, эти машины встречаются «на ура». И английская, более конкурентоспособная продукция поступает на европейские рынки, и заставляет европейцев пересматривать свое отношение в вопросах введения рабочих машин.</span>
<em>// PascalABC.NET 3.3, сборка 1542 от 05.10.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
Writeln(ReadSeqInteger('Вводите:',ReadInteger('n=')).Any(x->x<0))
end.
<u>Примеры</u>
n= 5
Вводите: 6 -4 56 34 0
True
n= 3
Вводите: 67 9453 457
False
Зайди на своём пк в power point