Линейные массивы

@Laines · Регистрация: 21.01.2010

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

Написать программу, которая упорядочивает по убыванию элементы заданной последовательности с четными номерами.

@Unrealler · 01.03.2010, 20:15

Pascal

uses crt;
var
   n,i,j,r:integer;
   a:array[1..100] of integer;
begin
clrscr;
write('Ââåäèòå êîëè÷åñòâî ýëåìåíòîâ ìàññèâà=');
readln(n);
for i:=1 to n do
 begin
  write('Ââåäèòå ',i,'-é ýëåìåíò=');
  readln(a[i]);
 end;
writeln('Èñõîäíûé ìàññèâ');
for i:=1 to n do
 write(a[i]:4);
writeln;
writeln('Ïîñëå ñîðòèðîâêè');
for j:=1 to n-1 do
 for i:=1 to n-j do
  if (odd(i)=false) then
   if (a[i]<=a[i+2]) then
    begin
     r:=a[i];
     a[i]:=a[i+2];
     a[i+2]:=r;
    end;
for i:=1 to n do
 write(a[i]:4);
readln
end.

@Laines 1 / 1 / 0 Регистрация: 21.01.2010 Сообщений: 16
		1
	Линейные массивы 01.03.2010, 20:09. Показов 1234. Ответов 1 Метки нет (Все метки) Написать программу, которая упорядочивает по убыванию элементы заданной последовательности с четными номерами. 0

	01.03.2010, 20:15

Опции темы

Линейные массивы

Решение