я бы хотел съездить в город бийск, потому что там красиво, особенно в алтайских горах. горы почти достают до неба. внизу они зеленые от растущего вокруг леса. выше — светлые, а верхушки — совсем бело-голубые. я бы хотел побывать на священном ручье, который несет чистую ледяную воду с гор в реку катунь. недалеко от ручья есть дерево желаний. каждый может подойти к нему, загадать желание и привязать к его ветвям ленточку. и красуется это дерево, как разноцветная ёлка. еще я бы хотел побывать на том месте, где сливаются реки бия и катунь, образуя реку обь. и с приятными воспоминаниями и впечатлениями вернуться домой.
ich möchtein die stadtgehen, weil esbijskist sehr schön,vor allem in deraltai-gebirge.diebergehat fastbis zumhimmel.an der unterseitesind siegrünauswachsen rund umden wald.above -licht, und dietop -nur dieblau und weiß.ich möchteden heiligenbach, derein reinesgletscherwasseraus den bergendes flusseskatunist, zu besuchen.in der nähe desbachesgibt es einen baumwünsche.jeder kannkommenund sich etwas wünschenund binden sie esan die zweigedes bandes.undschmückten denbaum alsbunten baum.ich möchte auchan die stelle, wo die flüssekatunundbiya,bildenden flussobbesuchen.undmit angenehmenerinnerungen und erfahrungenwieder nach hause.
var i,j,n1,n2,n3,t:integer; a,b:array[1..nm] of integer; c:array[1..2*nm] of integer;
begin Write('Введите количество элементов в массиве A: '); Readln(n1); Write('Введите количество элементов в массиве B: '); Readln(n2); n3:=n1+n2; Write('Введите элементы массива A через пробел '); for i:=1 to n1 do begin Read(a[i]); c[i]:=a[i] end; j:=n1; Write('Введите элементы массива B через пробел '); for i:=1 to n2 do begin Read(b[i]); Inc(j); c[j]:=b[i] end; Write('Массив А: '); for i:=1 to n1 do Write(a[i],' '); Writeln; Write('Массив B: '); for i:=1 to n2 do Write(b[i],' '); Writeln; { сортировка массива С} for i := 1 to n3-1 do for j := 1 to n3-i do if c[j] > c[j+1] then begin t:=c[j]; c[j]:=c[j+1]; c[j+1]:=t end; Writeln('Отсортированный по возрастанию массив C'); for i:=1 to n3 do Write(c[i],' '); end.
Контрольное решение:
Введите количество элементов в массиве A: 6 Введите количество элементов в массиве B: 4 Введите элементы массива A через пробел 3 8 -4 0 8 12 Введите элементы массива B через пробел 9 -5 8 5 Массив А: 3 8 -4 0 8 12 Массив B: 9 -5 8 5 Отсортированный по возрастанию массив C -5 -4 0 3 5 8 8 8 9 12
я бы хотел съездить в город бийск, потому что там красиво, особенно в алтайских горах. горы почти достают до неба. внизу они зеленые от растущего вокруг леса. выше — светлые, а верхушки — совсем бело-голубые. я бы хотел побывать на священном ручье, который несет чистую ледяную воду с гор в реку катунь. недалеко от ручья есть дерево желаний. каждый может подойти к нему, загадать желание и привязать к его ветвям ленточку. и красуется это дерево, как разноцветная ёлка. еще я бы хотел побывать на том месте, где сливаются реки бия и катунь, образуя реку обь. и с приятными воспоминаниями и впечатлениями вернуться домой.
ich möchtein die stadtgehen, weil esbijskist sehr schön,vor allem in deraltai-gebirge.diebergehat fastbis zumhimmel.an der unterseitesind siegrünauswachsen rund umden wald.above -licht, und dietop -nur dieblau und weiß.ich möchteden heiligenbach, derein reinesgletscherwasseraus den bergendes flusseskatunist, zu besuchen.in der nähe desbachesgibt es einen baumwünsche.jeder kannkommenund sich etwas wünschenund binden sie esan die zweigedes bandes.undschmückten denbaum alsbunten baum.ich möchte auchan die stelle, wo die flüssekatunundbiya,bildenden flussobbesuchen.undmit angenehmenerinnerungen und erfahrungenwieder nach hause.
nm=10; {максимальная длина массива}
var
i,j,n1,n2,n3,t:integer;
a,b:array[1..nm] of integer;
c:array[1..2*nm] of integer;
begin
Write('Введите количество элементов в массиве A: ');
Readln(n1);
Write('Введите количество элементов в массиве B: ');
Readln(n2);
n3:=n1+n2;
Write('Введите элементы массива A через пробел ');
for i:=1 to n1 do
begin
Read(a[i]); c[i]:=a[i]
end;
j:=n1;
Write('Введите элементы массива B через пробел ');
for i:=1 to n2 do
begin
Read(b[i]); Inc(j); c[j]:=b[i]
end;
Write('Массив А: ');
for i:=1 to n1 do Write(a[i],' ');
Writeln;
Write('Массив B: ');
for i:=1 to n2 do Write(b[i],' ');
Writeln;
{ сортировка массива С}
for i := 1 to n3-1 do
for j := 1 to n3-i do
if c[j] > c[j+1] then
begin
t:=c[j]; c[j]:=c[j+1]; c[j+1]:=t
end;
Writeln('Отсортированный по возрастанию массив C');
for i:=1 to n3 do Write(c[i],' ');
end.
Контрольное решение:
Введите количество элементов в массиве A: 6
Введите количество элементов в массиве B: 4
Введите элементы массива A через пробел 3 8 -4 0 8 12
Введите элементы массива B через пробел 9 -5 8 5
Массив А: 3 8 -4 0 8 12
Массив B: 9 -5 8 5
Отсортированный по возрастанию массив C
-5 -4 0 3 5 8 8 8 9 12