Дан массив X.Вычислить и напечатать массив Y, элементы которого определяются по формуле |y[i]=x[i]-B|, где B - максимальный элемент массива X

const
 n = 5;
 m = 5;
var
 arr: array[1..n, 1..m] of integer;
 cnt, sr, i, j, summ: integer;
begin
 cnt:=0; sr:=0; summ:=0;
  for i:=1 to n do
   begin
    for j:=1 to m do
     begin
      arr[i, j]:=random(50);
      write(arr[i, j]:4);
       if arr[i, j] mod 2<>0 then
        begin
         summ:=summ+arr[i, j];
         inc(cnt);
        end;
     end;
    writeln;
   end;
 writeln('Сумма нечетных элементов = ', summ);
 writeln('Кол-во нечетных элементов = ', cnt);
 writeln('Среднее арифметическое = ', summ div cnt);
end.

var
 st: string;
 i, j: integer;
begin
 writeln('Слово: ');
 readln(st);
  for i:=1 to length(st) do
   if st[i] = 'в' then j:=pos('в', st);
 writeln('Первый раз буква "в" встречается на ', j, ' позиции!');
end.

{1) Дан массив X.Вычислить и напечатать массив Y, элементы которого определяются по формуле |y[i]=x[i]-B|, 
где B - максимальный элемент массива X}
Program S9;
 
Const
    N = 10;
Var
    i,Max:Integer;
    x,y:Array[0..N] Of Integer;
Begin
    Max:=0;
    Randomize;
    {Заполням массив x случайными числами}
        WriteLn;
        WriteLn('Massiv x');
    For i:=0 To N Do
        Begin
            x[i]:=Random(10);
            Write(x[i],' ');
        End;
    {Ищем максимальный элемент}
    For i:=0 To N Do
        If x[i] > Max Then Max:=x[i];
        WriteLn;
        WriteLn('y[max] = ',Max,' Massiv y');
    {Заполняем массив y}
    For i:=0 To N Do
        Begin
            y[i]:=Abs(x[i] - Max);
            Write(y[i],' ');
        End;
    ReadLn;         
End.

{3)Даны действительные a,b,c. Получить (max(a,a+b)+max(a,b+c))/(1+max(a+bc,1.5). Вычисление max оформите подпрограммой}
Program S9;
 
Function Max(x,y:Real):Real;
Begin
    If x >= y Then
        Max:=x
    Else
        Max:=y;
End;
 
{------- Основная программа -------}
Var
    a,b,c,Res:Real;
Begin
    WriteLn('Please enter a,b,c');
    ReadLn(a,b,c);
    Res:=(Max(a,a + b)+Max(a,b + c))/(1 + Max(a + b*c,1.5));
    WriteLn('(Max(a,a+b)+Max(a,b+c))/(1+Max(a+bc,1.5) = ',Res:6:3);
    ReadLn;
End.