Определите сумму всех элементов последовательности, завершающиеся числом 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
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.