Pascal 8 класс
Отсортировать элементы массива,расположенные до max,в порядке убывания
55 баллов, кто решит
BobbyFresnel:
Значения элементов? А от сколька?
От минус бесконечности?
От 1 до 50
Массив какой длины? Фиксированной или с клавиатуры ввести?
Нужно все - это все, кроме максимального нужны
Ясно, проще отсортировать все и не парится, а потом первый выкинуть)
Хотя, если их несколько одинаковых... ну ладно, это решаемо)
Через сколько напишешь?
Уже
Было бы что писать
Ответы
Ответ дал:
0
// PascalABC.NET
begin
var n := ReadInteger('n =');
var a := ArrRandom(n, 1, 50);
a.Println;
var m := A.Max;
a.Where(p -> p <> m).OrderDescending.Print
end.
Приложения:
У нас там другой тип решения
Вот пример решения:
for i:= 1 to n-1 do
begin
min:=a[i];
k:=i;
for j:= i+1 to n do
if a[j]min:=a[j];
k:=j;
end;
a[k]:=a[i];
a[i]:=min
end;
Вот пример решения:
for i:= 1 to n-1 do
begin
min:=a[i];
k:=i;
for j:= i+1 to n do
if a[j]min:=a[j];
k:=j;
end;
a[k]:=a[i];
a[i]:=min
end;
Я мыслей читать не умею. Здешний сайт предполагает решение задачи, а не "решение задачи, так как в мыслях у автора вопроса".
Если вас учат писать на Турбо Паскаль образца 1984 года, об этом надо в вопросе говорить.
С тех пор прошло 36 лет, в программировании появились изменения )))
Сорри, забыл указать. Не я школьную программу составляю. Сможешь переписать?
Нет. Нас учили писать именно так. Школьная программа не фиксирует язык даже, не то, чтобы его разновидность. Все рашет учитель информатики. Я знаком немного с древним Паскалем, но не настолько, чтобы в нем писать сортировки.
Если ты указал сразу Турбо Паскаль, я бы просто не стал тут задерживаться.
Вас заинтересует
1 год назад
1 год назад
1 год назад
3 года назад
8 лет назад