1.Задан массив из 10 элементов (5;150).Отсортировать массив по убыванию
10-11 класс
|
var
i,j,p:integer;
a:array[1..10]of integer;
begin
writeln('Исходный массив:');
for i:=1 to 10 do
begin
a[i]:=random(5,150);
write(a[i],' ');
end;
writeln;
for i:=1 to 10 do
for j:=i to 10 do
if a[j]>a[i] then
begin
p:=a[i];
a[i]:=a[j];
a[j]:=p
end;
writeln('Отсортированный массив:');
for i:=1 to 10 do write(a[i],' ');
end.
Другие вопросы из категории
Через какое время у поставщика услуг электронной почты появится повод прислать извещение о переполнении почтового ящика?
2.В мешке лежит 256 красных яблок.
Сколько информации содержит сообщение, что достали красное яблоко
(Объясните Ваш ответ)
3. Каково будет значение переменной X после выполнения операций присваивания?
X=2
Y=4
Y=X*X+X
X=Y*Y-X*X
Заранее спасибо=)
Читайте также
индексами. выведите на экран исходный массив и полученное среднее арифметическое.
2. Задайте массив из 10 элементов с помощью датчика случайных чисел. замените все элементы с четными индексами максимальными. Выведите на экран исходный и измененный массивы
среднее второго и предпоследнего элементов массива
дан целочисленный
массив из 10 элементов написать программу находящую сумму элементов
массива красных 3 ил 5
дан целочисленный массив из 30 ти элементов
написать программу которая позволяет найти среднее арифметическое
положительных элементов массива
элементов.Найти колличество четных положительных элементов.
3)Дан массив из 6 элементов.Найти произвдение положительных из них.
2) ввести с клавиатуры массив из n элементов вывести на экран максимальный четный элемент и минимальный нечетный элемент
2. Написать прогрумму,которая выводит на экран, разность значений двух вещественных массивов из 10 элементов.