Дан массив а[-1; 0; 2; 4; -2].отсортировать по возрастанию(на паскале)в виде программы

uses crt; var i,j,max:byte; a: array [1..100] of integer; buf:integer; BEGIN repeat write(' input number of elements '); readln(max); until max in [1..100];     writeln('input your demention');   for i:=1 to max do  begin   write('input a[', i, '] = ');    readln(a[i]);   end;    buf:=0;    write('the first sort: ');   for i:=max downto 1 do  for j:=2 to i do   if a[j]<a[j-1] then    begin     buf:=a[j];     a[j]:=a[j-1];     a[j-1]:=buf;     end;   for i:=1 to max do write(a[i]);    writeln;  write('the second sort : ');   for i:=max downto 1 do write(a[i],'  '); END.
С форума программистов , сортировка повсюду

В информатике используются различные подходы к измерению информации:

Содержательный подход к измерению информации. Сообщение – информативный поток, который в процессе передачи информации поступает к приемнику. Сообщение несет информацию для человека, если содержащиеся в нем сведения являются для него новыми и понятными Информация - знания человека ? сообщение должно быть информативно. Если сообщение не информативно, то количество информации с точки зрения человека = 0. (Пример: вузовский учебник по высшей математике содержит знания, но они не доступны 1-класснику)

Алфавитный подход к измерению информации не связывает кол-во информации с содержанием сообщения. Алфавитный подход - объективный подход к измерению информации. Он удобен при использовании технических средств работы с информацией, т.к. не зависит от содержания сообщения. Кол-во информации зависит от объема текста и мощности алфавита. Ограничений на max мощность алфавита нет, но есть достаточный алфавит мощностью 256 символов. Этот алфавит используется для представления текстов в компьютере. Поскольку 256=28, то 1символ несет в тексте 8 бит информации.

Вероятностный подход к измерению информации. Все события происходят с различной вероятностью, но зависимость между вероятностью событий и количеством информации, полученной при совершении того или иного события можно выразить формулой которую в 1948 году предложил Шеннон.

При копировании кода формат испортился. Код должен выглядеть как на картинке

var  r, l: real; //Радиус и длина окружности соответственно  top, bottom: real; //Внешний и внутренний радиус кольца  ex_num: word;begin  write('Введите номер задания: ');  read(ex_num);  if ex_num = 1 then    begin      write('Введите радиус: ');      read(r);      writeln('Длина окружности: ', 2 * pi * r);      writeln('Площать круга данного радиуса: ', pi * r * r);    end else if ex_num = 2 then      begin        writeln('Введите длину окружности: ');        read(l);        write('Площадь круга: ', pi * sqr(l / 2 * pi));      end else          begin            write('Введите внешний радиус кольца: ');            read(top);            write('Введите внутренний радиус кольца: ');            read(bottom);            write('Площадь кольца: ', pi * top * top - pi * bottom * bottom);          end;end.