Складіть математичну модель і блок-схему алгоритму обчислення значення ви- разу: (a + b) — b/(2*a – 1). Виконайте його при різних значеннях a i b. Підберіть
числа так, щоб кожного разу виконання алгоритму відбувалося по-іншому.
​

unit Unit1;

interface

uses

 System.SysUtils, System.Types, System.UITypes, System.Classes, System.Variants,

 FMX.Types, FMX.Controls, FMX.Forms, FMX.Graphics, FMX.Dialogs, FMX.Edit,

 FMX.Controls.Presentation, FMX.StdCtrls;

type

 TForm1 = class(TForm)

   Button1: TButton;

   Edit1: TEdit;

   procedure Button1Click(Sender: TObject);

 private

   { Private declarations }

 public

   { Public declarations }

 end;

var

 Form1: TForm1;

  x, s: integer;

implementation

{$R *.fmx}

procedure TForm1.Button1Click(Sender: TObject);

begin

 x:=StrToInt(Edit1.Text);

 s:=(x+2)/5;

 Showmessage(IntTostr(s)+'ответ');

end;

end.

На картинке можете посмотреть, как это работает, вначале выводится исходная "матрица" (массив массивов на самом деле), потом одной строкой сколько в каждой "строке" нечетных элементов, затем отсортированная "матрица", и потом, еще раз, сколько нечетных элементов в каждой строке отсортированной "матрицы". Во вложенных файлах в первом сортировка встроенным методом PascalABC.NET и там убрана процедура OddsInARow (см скриншот). Во втором пузырьковая сортировка. Заполнение матрицы рандомное единицами и двойками, можете вставить свои значения в a[i] := ArrRandom(n, 1, 2), где n - кол-во "столбцов" (элементов во внутренних массивах).