Определите сумму всех элементов последовательности, завершающиеся числом 0. В этой и во всех следующих задачах числа, следующие за первым нулем, учитывать не надо. Вводимые числа: 1, 7, 9, 0. В ответе должно быть число: 17​

Const
n=10; m=7;
var
j,i,i_max,s,max:integer;
a:array[1..n,1..m]of integer;
begin   
 for i:=1 to n do     
    begin         
           writeln; s:=0;i_max:=i;max:=-32768;             
           for j:=1 to m do               
                begin                       
                   a[i,j]:=random(100)-50;                       
                   write(a[i,j]:4);                     
                          s:=s+a[i,j];               
               end;               
                 writeln('i: ',i,'  ',s);            
                    if s>max then             
                               begin               
                                    i_max:=i;               
                                    max:=s;             
                               end;       
                end;
  writeln; 
   writeln(i_max,'  s: ',max);
end.

Вот мой вариант:

Кодирование в шестнадцатиричном коде:
** Я напишу в 16 - ом коде чтобы ответ не был слишком большим.

Исходный текст: Не цветы а вянут - Уши
Кодирование: 0E2C2D0E2E1E140E2F1F0E2E1B0E2E1E0E2F1B0E2F2B140E2E19140E2E1B0E2F2F0E2E2D
0E2F1C0E2F1B1416140E2D1C0E2F210E2E21

Исходный текст: Не ладоши а ими хлопают - Уши
Кодирование: 
0E2C2D0E2E1E140E2E2B0E2E190E2E1D0E2E2E0E2F210E2E21140E2E19140E2E210E2E2C
0E2E21140E2F1E0E2E2B0E2E2E0E2E2F0E2E190E2F2E0E2F1B1416140E2D1C0E2F210E2E2
1

Исходный текст: Не бельё а их развешивают - Уши
Кодирование: 
0E2C2D0E2E1E140E2E1A0E2E1E0E2E2B0E2F2C0E2B21140E2E19140E2E210E2F1E140E2F
190E2E190E2E200E2E1B0E2E1E0E2F210E2E210E2E1B0E2E190E2F2E0E2F1B1416140E2D1
C0E2F210E2E21

Исходный текст: Доверчивые и любопытные - Люди
Кодирование:
0E2C1D0E2E2E0E2E1B0E2E1E0E2F190E2F200E2E210E2E1B0E2F2B0E2E1E140E2E21140E
2E2B0E2F2E0E2E1A0E2E2E0E2E2F0E2F2B0E2F1B0E2E2D0E2F2B0E2E1E1416140E2C2B0E2
F2E0E2E1D0E2E21

Исходный текст: А еще на них можно вешать лапшу - Уши
Кодирование:
0E2C19140E2E1E0E2F220E2E1E140E2E2D0E2E19140E2E2D0E2E210E2F1E140E2E2C0E2E
2E0E2E1F0E2E2D0E2E2E140E2E1B0E2E1E0E2F210E2E190E2F1B0E2F2C140E2E2B0E2E190
E2E2F0E2F210E2F1C1416140E2D1C0E2F210E2E21

Исходный текст: Его проглатывают упорно, Не желая о чем-либо говорить - Язык
Кодирование:
0E2C1E0E2E1C0E2E2E140E2E2F0E2F190E2E2E0E2E1C0E2E2B0E2E190E2F1B0E2F2B0E2E
1B0E2E190E2F2E0E2F1B140E2F1C0E2E2F0E2E2E0E2F190E2E2D0E2E2E0E1B2C140E2C2D0
E2E1E140E2E1F0E2E1E0E2E2B0E2E190E2F2F140E2E2E140E2F200E2E1E0E2E2C160E2E2B
0E2E210E2E1A0E2E2E140E2E1C0E2E2E0E2E1B0E2E2E0E2F190E2E210E2F1B0E2F2C14161
40E2D2F0E2E200E2F2B0E2E2A

Исходный текст: Он может быть хорошо подвешан - Язык
Кодирование:
0E2C2E0E2E2D140E2E2C0E2E2E0E2E1F0E2E1E0E2F1B140E2E1A0E2F2B0E2F1B0E2F2C14
0E2F1E0E2E2E0E2F190E2E2E0E2F210E2E2E140E2E2F0E2E2E0E2E1D0E2E1B0E2E1E0E2F2
10E2E190E2E2D1416140E2D2F0E2E200E2F2B0E2E2A 

Исходный текст: За него тянут или дёргают - Язык
Кодирование:
0E2C200E2E19140E2E2D0E2E1E0E2E1C0E2E2E140E2F1B0E2F2F0E2E2D0E2F1C0E2F1B14
0E2E210E2E2B0E2E21140E2E1D0E2B210E2F190E2E1C0E2E190E2F2E0E2F1B1416140E2D2
F0E2E200E2F2B0E2E2A
 
Исходный текст: Его можно держать за зубами - Язык
Кодирование:
0E2C1E0E2E1C0E2E2E140E2E2C0E2E2E0E2E1F0E2E2D0E2E2E140E2E1D0E2E1E0E2F190E
2E1F0E2E190E2F1B0E2F2C140E2E200E2E19140E2E200E2F1C0E2E1A0E2E190E2E2C0E2E2
11416140E2D2F0E2E200E2F2B0E2E2A