5 - 9 классы Информатика 5+3 б 3. Екі скриптіні салыстырыңыз. Ұқсастығы мен айырмашылығы неде екенін жазыңыз.1-ссурет идти 10 шагов если край оттолкнутся 2-сурет идти 10 шагов повернуть в направление 90

// PascalABC.Net

// Первая программа, если необходимо выбрать нечетные элементы и их отсортировать.

begin

   var a := ArrRandom(10);

   writeln('Исходный массив: ');

   a.PrintLn(', ');

   writeln('Отсортированный массив нечетных элементов: ');

   a.Where(e -> e mod 2 <> 0).OrderBy(e -> e).Print(', ');

end.

// Вторая программа, если необходимо в исходном массиве отсортировать нечетные значения

begin

   var a := ArrRandom(10);

   writeln('Исходный массив: ');

   a.PrintLn(', ');

   writeln('Отсортированный массив нечетных элементов: ');

   var odd := a.Select((e, i) -> (i, e)).Where(e -> e[1] mod 2 <> 0).OrderBy(e -> e[1]);

   var sortedOdd := odd.Zip(odd.Select(e -> e[0]).OrderBy(e -> e), (f, s) -> (s, f[1]));

   foreach var e in sortedOdd do

       a[e[0]] := e[1];

   a.PrintLn(', ');

end.

// PascalABC.NET 3.2, сборка 1345 от 24.11.2016
// Внимание! Если программа не работает, обновите её версию!

function Len(ax,ay,bx,by:real):=sqrt(sqr(bx-ax)+sqr(by-ay));

var
  x,y,L:array[1..4] of real;
begin
  Writeln('Введите координаты четырех точек (парами х,y)');
  for var i:=1 to 4 do Read(x[i],y[i]);
  for var i:=1 to 3 do
    L[i]:=Len(x[i],y[i],x[i+1],y[i+1]);
  L[4]:=Len(x[4],y[4],x[1],y[1]);
  var s:=0.0;
  for var i:=1 to 4 do s+=L[i];
  Writeln('P=',s)
end.

Пример
Введите координаты четырех точек (парами х,y)
-5 -4.7 -3.2 6.7 5.1 8 7.4 -6.13
P=46.7405707422041

Во вложениях приведено решение этой же задачи в онлайн-калькуляторе. ответ совпадает.