Предмет: Информатика,
автор: fineworld2002
Pascal 8 класс
Отсортировать элементы массива,расположенные до max,в порядке убывания
55 баллов, кто решит
fineworld2002:
От 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;
Сорри, забыл указать. Не я школьную программу составляю. Сможешь переписать?
Похожие вопросы
Предмет: Русский язык,
автор: osv82
Предмет: Қазақ тiлi,
автор: rimma2
Предмет: Русский язык,
автор: нежданный
Предмет: Математика,
автор: сергей798
Предмет: Математика,
автор: алвщцдцтуи