Пункт главного меню с которого пользователь получает доступ к программам установленным на его компьютере

Пункт главного меню «Программы» позволяет получить доступ к установленным на компьютере программы.

var

 a: array[,] of integer;

 m, n, i, j, k, sum: integer;

begin

 Write('Введите размер матрицы M и N: '); ReadLn(m, n);

 SetLength(a, m, n);

 randomize;

 k := - 1;

 WriteLn('Массив:');

 for i := 0 to m - 1 do

 begin  

   for j := 0 to n - 1 do

   begin

     a[i, j] := random(100);

     Write(a[i, j]:4);

   end;

   WriteLn;

 end;

 for i := 0 to m - 1 do

    if (a[i, 1] > a[i,0]) and (k = -1) then k := i;

 if k = -1 then

 begin

   WriteLn('Нет строк, у которых второй элемент больше первого');

   exit;

 end;

 for j := 0 to n - 1 do

    if (a[k, j] mod 2 = 1) then sum := sum + a[k, j];

 WriteLn('Сумма нечетных чисел строки, у которой второй элемент больше первого, равна ', sum);

end.

Объяснение:

var

 a: array of integer;

 n, i, maxpar, minn: integer;

begin

 Write('Введите размер массива N: '); ReadLn(n);

 SetLength(a, n);

 randomize;

 minn := 51;

 WriteLn('Массив:');

 for i := 0 to n - 1 do

 begin

   a[i] := random(50) + 1;

   Write(a[i], ', ');

   if (a[i] < minn) and (a[i] mod 2 = 1) then minn := a[i];

 end;

 WriteLn;

 Sort(a);

 for i := 0 to n - 2 do

   if a[i] = a[i + 1] then maxpar := a[i];

 if maxpar <> 0 then WriteLn('Максимальный парный элемент равен ', maxpar)

    else WriteLn('В массиве нет парных элементов');

 WriteLn('Минимальный нечетный элемент равен ', minn);

end.

Объяснение: