var a: integer;
begin
writeln('Введите № месяца');
readln(a);
case a of
1: begin writeln('Январь Зима'); end;
2: begin writeln('Февраль - Зима'); end;
3: begin writeln('Март - Весна'); end;
4: begin writeln('Апрель - Весна'); end;
5: begin writeln('Май - Весна'); end;
6: begin writeln('Июнь - Лето'); end;
7: begin writeln('Июль - Лето'); end;
8: begin writeln('Август - Лето'); end;
9: begin writeln('Сентябрь - Осень'); end;
10: begin writeln('Октябрь - Осень'); end;
11: begin writeln('Ноябрь - Осень'); end;
12: begin writeln('Декабрь - Зима'); end;
else writeln('Ошибка. Введенный номер не является номером какого-либо месяца');
end;
readln
end.
Объяснение:
Type
ty=array[1..60] of integer;
Var
a,b,c:array[1..20] of integer;
ar:ty;
n,m,k,i:integer;
procedure quicksort(var a:ty; Lo,Hi: integer);
procedure sort(l,r: integer);
var
i,j,x,y: integer;
begin
i:=l;
j:=r;
x:=a[random(r-l+1)+l];
repeat
while a[i]<x do
i:=i+1;
while x<a[j] do
j:=j-1;
if i<=j then
begin
if a[i] > a[j] then
begin
y:=a[i];
a[i]:=a[j];
a[j]:=y;
end;
i:=i+1;
j:=j-1;
end;
until i>=j;
if l<j then sort(l,j);
if i<r then sort(i,r);
end;
begin;
randomize;
sort(Lo,Hi);
end;
begin
readln(n);
for i:=1 to n do
begin
readln(a[i]);
ar[i]:=a[i];
end;
readln(m);
for i:=1 to m do
begin
readln(b[i]);
ar[i+n]:=b[i];
end;
readln(k);
for i:=1 to k do
begin
readln(c[i]);
ar[i+n+m]:=c[i];
end;
quicksort(ar,1,n+m+k);
writeln('Final array:');
for i:=1 to n+m+k do
write(ar[i]:4);
end.
Пример ввода:
3
1
2
3
3
1
2
3
3
1
2
3
Пример вывода:
Final array:
1 1 1 2 2 2 3 3 3