Вычислите сумму последовательности y=1+1/2+1/3+/20 !

Получается ответ: 3.59773965714368

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.

Объяснение:

А) НОЧЬ - НОЛЬ - МОЛЬ - МЕЛЬ - ДЕЛЬ - ДЕНЬ
Дель — мелкая сеть
 
б) РОТА - НОТА - БОТА - БОЛА - ПОЛА - ПОЛК
Бота — испанский мешок для вина
Бола — испанское метательное оружие
 
в) БАНТ - КАНТ - КАРТ - КОРТ - КОРА - КОСА
 
г) БЕГ - БЕЛ - МЕЛ - МЕХ - МОХ - ЛOХ - ЛОГ - ЛАГ - ШАГ
Бел — единица громкости звука
Лoх — китайский кустарник
Лаг — прибор для измерения скорости судна
 
д) МОРЕ - МОРГ - ТОРГ - ТОРТ - СОРТ - БОРТ - БУРА - СУРА - СУША
Бура — минерал
Сура — раздел в Коране
 
е) МИГ - МИМ - ЖИМ - ЖОМ - КОМ - КОЛ - КОК - ВОК - ВЕК
Вок — китайский котёл для жарки