упорядочьте массив целых чисел А[10] по убыванию

Упорядочьте массив целых чисел
А[10] по убыванию

Задать свой вопрос
1 ответ
Program p1; 
var r,z,k,i:integer;mas:array [ 1..100 ] of integer;label m1; 
begin k:=0; 
writeln('vvedite massiv iz 10 chisel cherez probel'); 
for i:=1 to 10 do begin 
read(mas[ i ]); 
k:=k+1; 
end; 
m1: 
for i:=1 to k do begin 
if mas[ i ] lt; mas[ i+1 ] then begin z:=mas[ i ]; r:=mas[ i+1 ]; 
mas[ i ]:=r; mas[ i+1 ]:=z; goto m1; 
end;end; 
for i:=1 to k do begin write (mas[ i ],' ');end; 
end.
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт