Помогите с программированием
Написать программу для формирования и печати одномерного массива. Сформированный массив перед выводом на экран упорядочить по возрастанию. Задан вектор T(n), n<=12. Сформировать вектор В из элементов T, предшествующих наибольшему элементу вектора T. Выполнить сдвиг полученного массива вправо на одну позицию
За помощь подкину немного webmoney)
program Project2;

{$APPTYPE CONSOLE}
var
i,n,k:byte;
max: double;
T,B: array of double;
begin
N :=12;
SetLength(T, n);
SetLength(B, n);
for I := 0 to k-1 do Write(B:0:10,'');

WriteLn;
ReadLn;
K:=0; max:=T[k];
for I := 1 to n-1 do
if T>max then
begin
max:=T; k:=i;
end;
SetLength(B, k);
for I := 0 to k-1 do B:=T;

max:=B[k-1];
for I := k-1 downto 1 do B:=B[i-1];
B[0]:=max;

end.

  • С какой частью проблема? С сортировкой, сдвигом массива, выборкой массива длиной n-1? Хотя нет, если максимальных элементов в массиве T окажется несколько, то наверное длина B может быть и меньше, чем n-1.
    Язык-то хоть какой? В Perl и PHP сортировка вот вообще одной командой делается.

    begin
    N :=12;
    SetLength(T, n);
    SetLength(B, n);
    for I := 0 to k-1 do Write(B:0:10,'');
    А это вот тут нормально, что k не задан?

    for I := 0 to k-1 do B:=T;
    Это в каком языке можно так присваивать массивы, не указывая номер элемента? Что ты будешь делать с k равным нулю если у тебя все числа будут отрицательными? Как найдёшь максимальный элемент? Может, стоило k присвоить значение первого элемента массива?
    И я так понимаю, сортировка тебе не далась?

  • извиняюсь, автозамена некоторых строк на теги по каким-то причинам не дает запостить нормально ответ.

Вас заинтересует