===== 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.
Простi та складнi.
Просте - на вулицi йде снiг
Складне - якщо на вулицi йде снiг, то на вулицi холодно
Здесь скорее всего будет две блок схемы: одна для main, другая для move
Рекурсия будет изображаться как вызов подпро
Все считаю в одной программе, если что, можно у1 и у2 в
разные разнести
<span><span>
Var
x:integer;
y1,y2:real;
begin
writeln('</span>Введите х<span>');
readln(x);
y1:=(3*exp(4*ln(x))+1)/exp(3*ln(x));
y2:=sqrt(8+x)-sqrt(8-x);</span></span>
writeln(‘y1=’,y1);
writeln(‘y2=’,y2);
end.