Я мог ошибиться в формуле. Она в цикле, перепроверь.
Петя отправил письмо своей бабушке и положил его в почтовый ящик. Письмо забрал почтальон и отнёс его на почту. Здесь все письма складывают в большой мешок и почтовая машина отвозит их на вокзал. В почтовом вагоне письма везут в город, где живёт бабушка.
Другая почтовая машина везёт мешок на почту. А другой почтальон относит Петино письмо и отдаёт его бабушке.
Var i,j,p :integer; a:array[1..10] of integer;
begin
for i:=1 to 10 do
begin
a[i]:=random(20)+1;
writeln(a[i]);
end;
writeln('Массив по возрастанию');
for i:=1 to 10 do
for j:=1 to 10 do begin
if a[i]<a[j] then begin
p:=a[i];
a[i]:=a[j];
a[j]:=p;
end;end;
for i:=1 to 10 do
writeln(a[i]);
writeln('Массив по убыванию');
for i:=1 to 10 do
for j:=1 to 10 do begin
if a[i]>a[j] then begin
p:=a[i]; a[i]:=a[j]; a[j]:=p; end;end;
for i:=1 to 10 do writeln(a[i]);
readln;end.<span>
</span>
Фотосъемка достопримечательностей относится к получению (сбору) информации.
Ниже можно не записывать, записал для понятности.
(Т.к матрица на фотоаппарате собирает пучки света на себя отправляя в процессор, процессор перерабатывает изображение в изображение .jpg)