Там должна быть кнопка *NewTopic*
Var
a:array[1..?сколько у тебя элементов в массиве?] of integer;
b,c,i:integer;
begin
read(b,c);
for i:=1 to /kol-vo elementov v massive/ do
begin
read(a[i]);
write(a[i],' ');
end;
writeln
for i:=1 to /kol-vo elementov v massive/ do
begin
if i mod 2=0 then
a[i]:=a[i]+b
else
a[i]:=a[i]-c;
write(a[i],' ')
end;
end.
Сначала появилась почта - в разных странах она возникала в разное время, но возникла вскоре после изобретения письменности. Затем был изобретен телеграф, сначала - оптический телеграф Шаппа, затем электрический телеграф Морзе, передающий сигналы специальной кодовой азбукой. Затем Александр Белл изобрел телефон. Потом, уже в XX веке, появилось радиовещание, потом телевидение и наконец компьютерные сети.
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.
Решение чисто математическое. Думаю через строковый тип данных работать будет намного проще.