сервис вопросов и ответовдан массив а(20) отсортировать в порядке убывания элементы стоящие на четных номерах
10-11 класс|
|
Виктория36
28 нояб. 2016 г., 20:05:43 (7 лет назад)
Nkazancheeva
28 нояб. 2016 г., 22:48:38 (7 лет назад)
var a:array[1..20] of integer;
i,j,k,p:integer;
begin
for i:=1 to 20 do
read(a[i]);
for i:=1 to 19 do begin
k:=i;
if odd(i) then continue;
for j:=i to 20 do
if (a[k]<a[j]) then k:=j;
p:=a[i];
a[i]:=a[k];
a[k]:=p;
end;
for i:=1 to 20 do
write(a[i],' ');
end.
Begich
29 нояб. 2016 г., 1:38:07 (7 лет назад)
Вот программа по примитивной логике. Заводим доп.массив, переписываем в него четные эл-ты, сортируем его, отсортированные эл-ты вставляем назад в исходный массив.
var
i, j, p: integer;
a: array[1..20] of integer;
b: array[1..10] of integer;
begin
writeln('Исходный массив: ');
for i := 1 to 20 do
begin
a[i] := random(20) + 1;
write(a[i]:3)
end;
for i := 1 to 20 do
if i mod 2 = 0 then
begin
j := j + 1;
b[j] := a[i]
end;
writeln;
for i := 1 to 10 do
for j := 1 to 10 do
begin
if b[i] > b[j] then
begin
p := b[i];
b[i] := b[j];
b[j] := p
end
end;
for i := 1 to 10 do a[i * 2] := b[i];
writeln('Преобразованный массив: ');
for i := 1 to 20 do write(a[i]:3)
end.
Ответить
Другие вопросы из категории
Помогите пожалуйста! Есть 4 монеты, 1-я с которых фальшивая, но неизвестно легче или тяжелее она. Как за 2 взвешивания на весах без рычагов
найти фальшивую монету? Сложить блок-схему.
помогите дорешать и поправить программу на паскале решение биквадратного уравнения program bikkiv; var procedure ur(var
a,b,c,x1,x2);
var
D:real
bedin
D:=b*b-4*a*c;
if D<0 then writeln('корней нет')
else D=0 then x:=-b/(2+a)
else
begin
x1:=-b-sqrt(D)/2a;
x2:=-b+sqrt(D)/2a;
end;
end;
begin
readln(a1,b1,c1,t1,t2);
ur(f1,b1,c1,t1,t2);
как называется поименованная информация на диске
1) дисковод 2)папка 3)файл
4)каталог
Читайте также
Задача Pascal
Найти наименьшие элементы в каждом столбце матрицы Х(5,5) и переписать их в одномерных массив А.В массиве А вычислить сумму элементов,стоящих на четных местах и произведение элементов,стоящих на нечетных местах.Массив А,сумму и произведение вывести на экран
Паскаль. 12.Дан массив А(3*4). Найти сумму первых отрицательных элементов в каждом столбце. 13.Даны два массива А(3*3)
и В(3*3). Вывести на экран тот из них, у которого меньше сумма элементов главной диагонали.
17.Дан массив А(3*4). Заменить все отрицательные элементы на противоположные.
Составить программу Дан массив натуральных чисел , размерность -12 !) Заполнение массива производить с клавиатуры 2) Вывести на печать
только элементы кратные 2
3)Найти сумму первых пяти элементов
Составить программу Дан массив целых чисел , размерность -12
1) Заполнение массива производить случайными числами из диапозона [-10;35]
2)Вывести на печать только положительные элементы
3)Найти количество отрицательных элементов
Составить программу
Известны данные о выпуске прождукции ( ткани в метрах ) ткацким цехом текстильного комбината за каждый день месяца . Определить количество ткани ( метров) произведенных цехом за месяц .
№1. Дан массив из 30-ти элементов. Каждый элемент может принимать целочисленные значения от 0 до 100. Напишите программу, которая позволит найти сумму
двузначных элементов массива, которые не оканчиваются на 3. №2. Дан массив из 100 элементов. Каждый элемент может принимать целочисленные значения от 1 до 500. Напишите программу, которая позволит найти и вывести минимальное значение среди элементов массива, которые делят максимальное значение элементов массива без остатка.
Вы находитесь на странице вопроса "дан массив а(20) отсортировать в порядке убывания элементы стоящие на четных номерах", категории "информатика". Данный вопрос относится к разделу "10-11" классов. Здесь вы сможете получить ответ, а также обсудить вопрос с посетителями сайта. Автоматический умный поиск поможет найти похожие вопросы в категории "информатика". Если ваш вопрос отличается или ответы не подходят, вы можете задать новый вопрос, воспользовавшись кнопкой в верхней части сайта.