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

Упорядочьте массив целых чисел А[10] по убыванию
Гость
Ответ(ы) на вопрос:
Гость
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 ] < 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.
Не нашли ответ?
Ответить на вопрос
Похожие вопросы