С помощью Паскаля задача: Отсортировать массив из 10 чисел случайным образом по возрастанию и по убыванию.
5-9 класс
|
const n=10;
Var a:array[1..n]of integer;
i,max,p,k:integer;
Begin
writeln ('entered array');
for i:=1 to n do
Begin
a[i]:=random (9)+1;
write (a[i],' ');
end;
writeln;
for i:=1 to n-1 do
Begin
max:=a[i];
p:=i;
for k:=i+1 to n do
if a[k]>max then
Begin
max:=a[k];
p:=k;
end;
a[p]:=a[i];
a[i]:=max;
end;
writeln ('new array');
for i:=1 to n do
Write (a[i],' ');
writeln;
end.
столько нету баллов у меня
отсортировать случайным образом - это как?
Другие вопросы из категории
Читайте также
от -100 до 100. Определить минимальное положительное число.
2) Дан массив, состоящий из 10 чисел. Найдите номера тех элементовв масива, которые наименее различаются.
1. Заполнить массив из 10 элементов случайными числами в интервале [0..100] и отсортировать его по последней цифре.
2. Заполнить массив из 10 элементов случайными числами в интервале [0..100] и отсортировать первую половину по возрастанию, а вторую- по убыванию. Здесь решать лучше методом выбора.
таких членов.
2.Дан массив из 10 элементов. Найти количество элементов с четными индексами.
3.Дан массив из 10 элементов. Найти наибольший элемент массива.
Найти сумму элементов данного массива.
2. Заполнить одномерный массив, состоящий из 10 элементов, случайными числами от-15 до 35.
Найти значение максимального элемента массива.
чисел и выводит на экран этот же массив в прямом и обратном порядке. Протестировать алгоритм на произвольных массивах, состоящих из 1 числа, из 5 чисел, из 10 чисел.
2. Разработать схему алгоритма, который вводит массив из N целых чисел и выводит на экран элементы с чётными номерами. Протестировать алгоритм на произвольных массивах размерностью 5 и 8 элементов.
3. Разработать схему алгоритма, который вводит массив из N целых чисел и выводит на экран элементы с нечётными номерами в обратном порядке. Протестировать алгоритм для следующих исходных данных:
а) 1 3 5 6 8 9
б) -1 4 6 2 4 6 8 6 9
P.S. Убедительная просьба написать решение целиком и до наступления ночи. Я являюсь дилетантом в Паскале, а эти три задачи являются моим домашним заданием по информатике на завтра.