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
Проезжая на лошадях по дороге, автор встречает оборванного крестьянского мальчишку, за спиной которого висит котомка с книжками. Он идёт учиться. Некрасов решает подвести школьника, но тот только смущается. Автор обращается к своему юному спутнику, хотя и не ждет от него никаких ответов. Скорее, он хочет объяснить случайному собеседнику, что старания его родителей, отдавших последние деньги на обучение сына, не пропадут даром. Некрасов рисует перед крестьянским мальчишкой достаточно идиллическую картину, которую, тем не менее, подкрепляет фактами, и пророчит незнакомцу большое будущее. Возможно, он сможет повторить путь Ломоносова, этого «архангельского мужика», который «по своей и божьей воле стал разумен и велик». Поэт призывает сельского мальчонку не робеть, так как именно знания открывают перед ним все двери. Не исключено, что его юный собеседник сможет добраться до Москвы и станет учиться в университете, чтобы впоследствии принести своей стране гораздо большую пользу, чем избалованные дворянские отпрыски, которых поэт считает холодными, тупыми и напыщенными.
Источник: https://pishi-stihi.ru/shkolnik-nekrasov.html