Pascal (Паскаль)

Форум программистов и сисадминов Киберфорум

Войти

Регистрация
Восстановить пароль

Другие темы раздела
Pascal Поменять местами последний ноль в линейной последовательности с первым элементом https://www.cyberforum.ru/ pascal/ thread93763.html Написать программу, которая меняет местами последний ноль в линейной последовательности с первым элементом этой последовательности.	Pascal Замена символов Написать программу, которая удаляет лишние пробелы в заданной строке, и заменить символы «#» на введенный символ.
Pascal Результат выражения https://www.cyberforum.ru/ pascal/ thread93761.html Написать программу, которая по заданному натуральному значению вычисляет результат выражения	Pascal Вычисление часов Написать программу, которая вычисляет время (в часах), через которое будет не менее амеб, если известно, что в начале имеется 1 амеба, и амеба делится пополам каждые 3 часа https://www.cyberforum.ru/ pascal/ thread93760.html
График функции у=(sinx)/5 Pascal построить график функции и вывести на печать у=(sinx)/5	Pascal Кардиоида https://www.cyberforum.ru/ pascal/ thread93723.html нужно построить кардиоиду заданную следующим образом: r=a*(1-cosα); помогите, очень нужно сделать эту задачу, но я не понимаю как
Pascal Сколько раз встречается каждое число в массиве. нарисуйте блок схему пожалуйста Люди помогите нарисовать блок схему.Задание такое подсчитать сколько раз встречается каждое число. program massiv; const Size=4; Diap=4; var a:array of integer; i,n,k,j:integer; begin writeln; repeat https://www.cyberforum.ru/ pascal/ thread93718.html	Одномерный массив.30 элементов. Найти максимальный элемент..и количество элементов равных максимальному Pascal Здраствуйте! У меня проблема с написанием программы. Задание что то вроде такого: Одномерный массив. 30 элементов. Программа должна находить максимальный элемент и СКОЛЬКО ЕЩЕ ЭЛЕМЕНТОВ В МАССИВЕ РАВНО МАКСИМАЛЬНОМУ. На нахождение максимального элемента то я знаю что писать,а вот с "количество элементов,равных макс."-с этим у меня проблема...
Pascal Найдите ошибку Чо тут не так?:О program ahdhmkaghkjmahlkamhljmntahldajokhm(110009); uses crt; var c,a,b,i,j,k,s:integer; begin clrscr; write('enter a='); readln(a); write('enter b='); readln(b); https://www.cyberforum.ru/ pascal/ thread93708.html	Pascal Подсчитать количество строк, элементы которых образуют возрастающую последовательность Подсчитать количество строк, элементы которых образуют возрастающую последовательность.( решить по обработке файлов в паскале https://www.cyberforum.ru/ pascal/ thread93706.html
Pascal Вычислить значение функции Как создать программу на нахождение функции игрика (Y), если 1) x²+6/(x+1) 2) bx²-8√x 3)lg(x+2b)	Pascal Построить алгоритм ... Помогите плиз с задачкой Построить алгоритм ДО и алгоритм ПОКА дя вычислений значения функции на отрезке с шагом h. Написать программу F= x - sin x https://www.cyberforum.ru/ pascal/ thread93696.html

Puporev

Почетный модератор

64299 / 47594 / 32743

Регистрация: 18.05.2008

Сообщений: 115,181

09.02.2010, 09:49

Сортировка элементов массива с нечетными номерами - Pascal - Ответ 532759

09.02.2010, 09:49. Показов 1535. Ответов 1

Метки (Все метки)

Сообщение было отмечено лёлька как решение

Решение

Pascal

uses crt;
const max=100;
var a:array[1..max] of integer;
    n,i,j,k:byte;
    x:integer;
begin
clrscr;
randomize;
repeat
write('Размер массива n=');
readln(n);
until n in [1..max];
writeln('Исходный массив:');
for i:=1 to n do
 begin
  a[i]:=random(20)+1;
  write(a[i],' ');
 end;
writeln;
writeln;
for i:=1 to n-1 do
for j:=i+1 to n do
if odd(i)and odd(j)and(a[i]<a[j])then {номера нечетные(odd) и меньше}
 begin
  x:=a[i];
  a[i]:=a[j];
  a[j]:=x;
 end;
writeln('Элементы массива с нечетными номерами отсортированы по убыванию:');
for i:=1 to n do
write(a[i],' ');
readln
end.

Вернуться к обсуждению:
Сортировка элементов массива с нечетными номерами Pascal

Заказать работу у эксперта

Programming

Эксперт

94731 / 64177 / 26122

Регистрация: 12.04.2006

Сообщений: 116,782

09.02.2010, 09:49

Готовые ответы и решения:

произведение элементов массива с нечетными номерами;
произведение элементов массива с нечетными номерами;

Найти сумму элементов массива с нечетными номерами
В одномерном массиве, состоящем из п вещественных элементов, вычислить: 1. Сумму элементов...

Вычислить сумму элементов массива с нечетными номерами
В одномерном массиве, состоящем из n вещественных элементов, вычислить: 1)сумму элементов с...

Найти сумму элементов массива с нечетными номерами
В одномерном массиве, состоящем из n вещественных элементов, вычислить: Сумму элементов массива с...

	09.02.2010, 09:49

IT_Exp

Эксперт

87844 / 49110 / 22898

Регистрация: 17.06.2006

Сообщений: 92,604

09.02.2010, 09:49

Помогаю со студенческими работами здесь

Получить сумму элементов массива с нечетными номерами
3. Получить сумму элементов одномерного массива размерностью N с нечетными номерами.

Найти произведение элементов массива с нечётными номерами
В одномерном массиве A который состоит из N действительных элементов вычислить следующее: 1)...

Образовать массив Т из ненулевых элементов массива А, с нечетными номерами.
Если в задаче требуется сформировать новый массив,то в программе необходимо вывести его и...

Дан массив из N элементов. Нужно найти сумму элементов с четными номерами и отдельно-с нечетными номерами
Помогите сделать

Наверх