отсортировать одномерный массив из 10 элементов методом сортировкс выбором
10-11 класс
|
procedure SortBySelect(var a: Vector; kol:integer);
{Сортировка выбором}
var
i, j, k: integer;
x: integer; {заменить на тип элементов массива}
begin
for i := 1 to kol-1 do
begin
k := i;
x := item[i];
for j := i+1 to count do
if item[j]<x then
begin
k := j;
x := item[j]
end;
item[k] := item[i];
item[i] := x
end
end;
плиз,очень нужно((завтра сдавать экзамен!
Другие вопросы из категории
больше.Написать программу в паскале абс,использую функцию.
Читайте также
индексами. выведите на экран исходный массив и полученное среднее арифметическое.
2. Задайте массив из 10 элементов с помощью датчика случайных чисел. замените все элементы с четными индексами максимальными. Выведите на экран исходный и измененный массивы
элементов.Найти колличество четных положительных элементов.
3)Дан массив из 6 элементов.Найти произвдение положительных из них.
среднее второго и предпоследнего элементов массива
дан целочисленный
массив из 10 элементов написать программу находящую сумму элементов
массива красных 3 ил 5
дан целочисленный массив из 30 ти элементов
написать программу которая позволяет найти среднее арифметическое
положительных элементов массива
положитльных элементов.
2.
Сформируйте одномерный массив из 5 элементов (значения элементов укажт пользователь с клавиатуры). Обнулите значения всех элементов с нечетными индексами. Выведите значения одномерного массива в строку через пробел.
2) ввести с клавиатуры массив из n элементов вывести на экран максимальный четный элемент и минимальный нечетный элемент