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

Var a: array [1..20] of integer;     i, m: integer; begin       for i : = 1 to 20 do        begin           a[i] : = random(50);           writeln('[', i, '] => ', a[i]);       end;       m : = 1;       for i : = 1 to 20 do           if (a[m] > a[i]) then m : = i;       writeln('[', m, '] => ', a[m]); end.

в условии не указано но для кодирования используется фраза "в памяти " при этом для нахождения кода шифрованной буквы нужно к коду исходной буквы прибавить код буквы из предложения к первой букве прибавляем код первой буквы предложения ко второй код второй итд т.

а для расшифровки эти коды нужно вычитать, получаем

 

в   п   а   м   я

3   17   1 14 33

п   щ     о     я     к

17 27   16   33   17

-

3   17   1     14   33

14 10 15   19     17

м   и   н     с       к

 

н     щ     ё   п

15   27   7     17

-

3     17   1     14 

12   10   26   3

к     и     е     в

20 - 25 = -5

-5 в десятичной системе