В массиве A(n) расставить все элементы, начиная с k-го, в порядке убывания. Вывести на экран новый массив

@Alex2003 · Регистрация: 01.10.2013

Студворк — интернет-сервис помощи студентам

В массиве A(n) расставить все элементы, начиная с k-го, в порядке убывания. Вывести на экран новый массив.

@vint-81 · 13.10.2014, 14:45

Pascal

const n=10;
type mas=array[1..n] of integer;
var a:mas;
    i,k:integer;
 
procedure sort(var a:mas;o:integer);
var i,j,temp:integer;
begin
 for i:=o to n-1 do
  for j:=o to n+o-i-1 do
   if a[j] < a[j+1]
    then
     begin
      temp:=a[j];
      a[j]:=a[j+1];
      a[j+1]:=temp
     end;
end;
 
procedure v(var a:mas;f:boolean);
var i:integer;
begin
 for i:=1 to n do
  begin
   if f then a[i]:=random(11);
   write(a[i]:3)
  end;
 writeln
end;
 
begin
 randomize;
 repeat
  writeln('k=? ,0<k<=n');
  readln(k);
 until (k>0)and(k<=n);
 v(a,true);
 sort(a,k);
 v(a,false);
end.

Добавлено через 1 час 3 минуты
для k=10 не работает
в 34 и 36 строке k<=n заменить на k<n

@Alex2003 1 / 1 / 0 Регистрация: 01.10.2013 Сообщений: 32
		1
	В массиве A(n) расставить все элементы, начиная с k-го, в порядке убывания. Вывести на экран новый массив 13.10.2014, 08:32. Показов 1972. Ответов 1 Метки нет (Все метки) В массиве A(n) расставить все элементы, начиная с k-го, в порядке убывания. Вывести на экран новый массив. 0

Опции темы

В массиве A(n) расставить все элементы, начиная с k-го, в порядке убывания. Вывести на экран новый массив

Решение