// Насколько я смог разобрать, тебе нужно это
const n = 5;
var a: array [1..n] of integer;
i, j, imax, x: integer;
begin
randomize;
for i:=1 to n do
a[i]:=random(90);
writeln('Исходный массив: ');
for i:=1 to n do
writeln('a['+i+'] = '+a[i]);
writeln();
for i:=1 to n-1 do
begin
imax:=i;
for j:=i+1 to n do if a[j]>a[imax] then imax:=j;
x:=a[i];
a[i]:=a[imax];
a[imax]:=x;
end;
writeln('Отсортированный по убыванию массив: ');
for i:=1 to n do
writeln('a['+i+'] = '+a[i]);
writeln();
end.
Карта города представляет город
Структура документа (в Word) представляет документ
Схема этажа для эвакуации представляет этаж здания
Содержание книги представляет книгу
Герб государства представляет дух и идею этого государства
Program prog;
Uses crt;
var n,s: integer;
begin
clrscr;
write('n = ');
readln(n);
repeat
s:=(n mod 10)+s;
n:=n div 10;
until
n=0;
writeln;
writeln('S = ', abs(s));
readln;
end.
ну буквы Вы не написали, поэому задание полностью выполнить не получится. Но Вы можете сами записать буквы, по представленному адресу: <u>http:\\doc.com\print.doc</u>