Паскаль АВС:
Program kislota;
uses crt;
const n=30;
var
e:array[1..n] of integer;
sum,nom,i: integer;
begin
writeln('*** alphaues is thinking... ***');
writeln('*** OK ***');
writeln();
writeln('Элементы массива:');
randomize;
nom:=0;
for i:=1 to n do
begin
e[i]:=random(100)-50;
write (e[i]:5);
end;
sum:=e[1]+e[2];
for i:=1 to n-1 do
if (e[i]+1 + e[i+1])>sum then
begin
sum:=e[i]+1 + e[i+1];
nom:=i;
end;
writeln();
writeln('Номер первого элемента пары с максимальной суммой: ',nom);
end.
"КОДУВАННЯ1428"
Объяснение:
У початковому коді змінні a та b містять рядки "2468121418" та "КОДУВАННЯ" відповідно.У першому рядку a=a[:3]+a[4:] відбувається зміна значення змінної a. Рядок "a[:3]+a[4:]" означає, що до змінної a буде присвоєно підрядок, який складається з перших трьох символів рядка a (тобто "246") та підрядку, що складається з усіх символів після четвертого символу (тобто "121418"). Таким чином, змінна a стає рівною "246121418".У другому рядку b=b[0]+a+b[6:] відбувається зміна значення змінної b. Рядок "b[0]+a+b[6:]" означає, що до змінної b буде присвоєно підрядок, що складається з першого символу рядка b (тобто "К"), значення змінної a (тобто "246121418") та підрядку, що складається з усіх символів після шостого символу рядка b (тобто "ННЯ"). Отриманий результат записується в змінну b, тому виводиться рядок "КОДУВАННЯ1418".Таким чином, при виконанні коду виведеться рядок "КОДУВАННЯ1418".