Это убывание массива, переделайте в массив возрастания program rost; var n, i, j, x, imax: integer; a: array[1..10] of integer; begin for i: =1to 10do read(a[i]); for i: =1to 10 do write(a[i], ' ' ); for i: =1to 9do begin imin: =i; for j: =i+1to 10 do if a[j]> a[imax] then imax: =j; x: =a[i]; a[i]: =a[imax]; a[imax]: =x end; for i: =1to 10do write (a[i], ' ' ); end.

Program rost;
const n=10;
var i,j,x,imin:integer; 
a:array[1..n] of integer;
begin 
for i:=1 to n do read(a[i]); 
for i:=1 to n do write(a[i], ' ' );
writeln;
for i:=1 to n-1 do
begin 
 imin:=i; 
 for j:=i+1 to n do if a[j]<a[imin] then imin:=j;
 x:=a[i]; 
 a[i]:=a[imin];  a[imin]:=x 
end;
for i:=1 to n do write (a[i], ' ' );
writeln;
end.

Пример:
6 4 9 2 5 1 3 7 8 2
6 4 9 2 5 1 3 7 8 2 
1 2 2 3 4 5 6 7 8 9 

А) var a,sum,i:integer;
begin
sum:=0;
for i:=100 to 500 do
begin
sum:=sum+i;
end;
writeln(sum);
end.

б) var a,sum,i:integer;
begin
sum:=0;
writeln('Введите число a');
readln(a);
for i:=a to 500 do
begin
sum:=sum+i;
end;
writeln(sum);
end.

в) var b,sum,i:integer;
begin
sum:=0;
writeln('Введите число b');
readln(b);
for i:=-10 to b do
begin
sum:=sum+i;
end;
writeln(sum);
end.

г) var a,b,sum,i:integer;
begin
sum:=0;
writeln('Введите число a');
readln(a);
writeln('Введите число b');
readln(b);
for i:=a to b do
begin
sum:=sum+i;
end;
writeln(sum);
end.

1) Загадочных знаков там нету, они исписаны древнеегипетскими иероглифами.
2) Похожие на объекты, ими обозначаемые: круг с точкой, идущий человек, полукруг (лепёшка), изображение ротового отверстия.
3) Единовременно - не более 1000.
4) Наиболее очевидное предположение: отвлечение начертания от реального образа -> изменение и расширение лексики -> единственная возможность записи в этих условиях - использование иероглифов для обозначения первых звуков слов, обозначавшихся ими ранее; так записывались и имена.
5) Нет.