===== PascalABC.NET =====
begin
var n := ReadlnInteger;
var a := ReadArrInteger(n);
var s1 := a[0::2].Sorted;
var s2 := a[1::2].SortedDescending;
var s3 := s1.Interleave(s2);
if n.IsOdd then
s3 := s3 + s1.Last;
a := s3.ToArray;
a.Println;
end.
Var
s:string;
d,i:integer;
begin
s:='177777277777377777477777';
d:=length(s);
for i:=1 to d-4 do
if copy(s,i,5)='77777' then
begin
delete(s,i,5);
insert('00000',s,i);
end;
writeln(s);
end.
возьми фото . Обрежьте его по форме таблицы ,если есть программы то это ещё проще потом вставляешь в файл ворлда
1) Графический файл
2) Текстовый файл
3) Видеофайл
4) Видеофайл
5) Текстовый файл