A=10 S=0+10=10 вывод 10
A =7 S=10+7=17 вывод 7
A =4 S=17+4 =21 вывод 4
A= 1 S=21+1 =22 вывод 1
A=-2 вывод 22
Сначала массив из 40 элементов заполняется случайными числами.
Затем элементы массива меняются местами, т. е. 1-й элемент становится 40-м, а 40-й - первым, второй - 39-м и наоборот.
Иными словами, массив переворачивается.
В КОИ-8 было 32 байта (1 символ кодируется 1байтом =8бит)
В Unicod стало 64 байта (1 символ кодируется 2-я байтами =16 бит)
При 256 символьном алфавите, каждый символ кодируется одним Байтом.
40*9*512*2=368640Байт. Делим на 1024 =360 кБайт.
Program n_1;
uses math;
var i, n, m, a, kol, j:int64;
begin
readln(n);
kol:=0;
a:=n;
while a<>0 do begin
a:=a div 10;
kol:=kol+1;
end;
m:=n mod 100;
for i:=1 to kol-1 do begin
if((n div 10) mod 100 > m) then m:=(n div 10) mod 100;
n:=m div 10;
end;
writeln(m);
end.
Решение чисто математическое. Думаю через строковый тип данных работать будет намного проще.