3.Дан целочисленный массив из 10 элементов. Выполнить сортировку элементов , записанных на нечетных местах.

Какие папки доступны при создании ящика?
В почтовом ящике по умолчанию доступны стандартные папки для работы с письмами:

«Входящие»;
«Отправленные»;
«Черновики»;
«Корзина»;
«Спам».
Стандартные папки являются обязательными и их нельзя удалить или переименовать.

Названия папок и количество непрочитанных писем в них отображены в левом верхнем углу страницы. Для перехода в папку нужно кликнуть по ее названию.

Для удобства группировки и распределения писем можно создавать, редактировать и удалять собственные папки.

PascalABC.NET 3.3.5, сборка 1662 от 29.04.2018
Внимание! Если программа не работает, обновите версию!

procedure RedFrac(a,b:integer; var c,d:integer); // сокращение дроби

function Gcd(a,b:integer):integer; // НОД
begin
  while b<>0 do begin a:=a mod b; Swap(a,b) end;
  Result:=a
end;

begin
  var sgnc:=Sign(a); // мы должны учитывать знак!
  var sgnd:=Sign(b); // мы должны учитывать знак!
  c:=Abs(a); d:=Abs(b);
  var g:=Gcd(c,d);
  c:=(c div g)*sgnc; d:=(d div g)*sgnd
end;

begin
  var p,q,r,s:integer;
  Write('Введите числитель и знаменатель: '); Read(p,q);
  RedFrac(p,q,r,s);
  Writeln(p,' / ',q,' = ',r, ' / ',s)
end.

Пример
Введите числитель и знаменатель: 384 4096
384 / 4096 = 3 / 32