массивы (сортировка по убыванию)

@PlayHard · Регистрация: 24.11.2009

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

отсортировать по убыванию элементы массива стоящи после 2-ого нулевого вектроа

@Inadequate · 13.02.2010, 11:59

PlayHard, приведите пример массива и результата.

@Puporev · 13.02.2010, 12:18

Видимо так по русски
стоящие после 2-ого нулевого элемента вектора

@PlayHard · 13.02.2010, 12:21 **[ТС]**

Сообщение от Puporev

стоящие после 2-ого нулевого элемента вектора

да пожалуй так вернее

@Inadequate · 13.02.2010, 13:09

Pascal

uses
  Crt;
const
  N = 20;
var
  a:array [1..n] of integer;
  i,j,temp,p,c: integer;
begin
  ClrScr;
  c:=0;
  for i:=1 to N do
  begin
    a[i]:=random(8)-4;
    if (a[i]=0) and (c<>2) then
    begin
      Inc(c);
      p:=i+1
    end
  end;
  if c=2 then
    for i:=p to N-1 do
      for j:=i+1 to N do
        if a[j]<a[i] then
        begin
          temp:=a[i];
          a[i]:=a[j];
          a[j]:=temp
        end;
  for i:=1 to N do
  begin
    if (i=p) and (c=2) then
      TextColor(2);
    Write(a[i],' ');
  end;
  ReadLn
end.

@PlayHard 2 / 2 / 4 Регистрация: 24.11.2009 Сообщений: 76
		1
	массивы (сортировка по убыванию) 13.02.2010, 11:57. Показов 720. Ответов 4 Метки нет (Все метки) отсортировать по убыванию элементы массива стоящи после 2-ого нулевого вектроа 0

@Inadequate Retired 7727 / 2559 / 671 Регистрация: 17.10.2009 Сообщений: 5,100
	13.02.2010, 11:59	2
	PlayHard, приведите пример массива и результата. 1

@Puporev Почетный модератор 64300 / 47595 / 32743 Регистрация: 18.05.2008 Сообщений: 115,181
	13.02.2010, 12:18	3
	Видимо так по русски стоящие после 2-ого нулевого элемента вектора 0

@PlayHard 2 / 2 / 4 Регистрация: 24.11.2009 Сообщений: 76
	13.02.2010, 12:21 [ТС]	4
	Сообщение от Puporev стоящие после 2-ого нулевого элемента вектора да пожалуй так вернее 0

	13.02.2010, 13:09