Сортировать только элементы с нечетными индексами по убыванию

@Sag321 · Регистрация: 14.12.2019

Author24 — интернет-сервис помощи студентам

Сортировать только элементы с нечетными индексами по убыванию.

@ZX Spectrum-128 · 16.12.2019, 09:55

Упорядочить элементы массива с нечетными индексами по возрастанию

@anna03ma · 28.10.2020, 18:36

Pascal

program l5;
uses crt;
var a:array[1..10] of integer;
    i,j,c:integer;
begin
 clrscr;
 writeln('Исходный массив');
 for i:=1 to 10 do
 begin
  a[i]:=random(100);
  write(a[i], ' ');
 end;
 writeln;
  for i:=1 to 10 do
  for j:=i to 10 do
   if odd(i)and odd(j)and(a[i]<a[j]) then
   begin
    c:=a[i];
    a[i]:=a[j];
    a[j]:=c;
   end;
 writeln('Сортировка элементов с нечетными индексами по убыванию');
 for i:=1 to 10 do write(a[i], ' ');
 readln;
end.

@Sag321 1 / 1 / 0 Регистрация: 14.12.2019 Сообщений: 10
		1
	Сортировать только элементы с нечетными индексами по убыванию 16.12.2019, 09:38. Показов 2945. Ответов 2 Метки turbo pascal (Все метки) Сортировать только элементы с нечетными индексами по убыванию. 1

@ZX Spectrum-128 6810 / 4567 / 4819 Регистрация: 05.06.2014 Сообщений: 22,438
	16.12.2019, 09:55	2
	Упорядочить элементы массива с нечетными индексами по возрастанию 1

	28.10.2020, 18:36