Сформировать вектор x так, чтобы в нем чередовались положительные и отрицательные элементы из матрицы n

[Sciv]

Надо было уточнять это в ИСХОДНОМ задании

[NinaSSS]

если обрубить конец(т.е выдавать только чередующиеся, то попробуйте так)

  ... writeln('massiv rezul');
                       if k<=x then begin
    for i:=1 to 2*k do begin
    if d[i]<> 0 then
    write (d[i]:3);end end else
      if k>x then begin
    for i:=1 to 2*x do begin
    if d[i]<> 0 then
    write (d[i]:3);end end else
    end.

[Freedo]

В исходном задании я указал всё что было задано.

То есть Вы считаете, что тот результат который получается удовлетворяет условиям задачи?

Просто мне этот результат кажется странным.

[Freedo]

NinaSSS, спасибо огромное, Вы мне очень помогли.

[Sciv]

Не пойму, че вы все парились, я ж сразу сказал: расписать матрицу в вектор, отсортировать да переставить как надо. Вот, за 10 минут написал:

const n=10;

type matrix=array [1..n,1..n] of integer;
     vector=array [1..n*n] of integer;

var  in_m: matrix;
     tmp_m, out_m: vector;
     fp: integer;

procedure CreateMatrix;
var i,j:integer;
begin
  randomize;
  for i:=1 to n do
    for j:=1 to n do
      in_m[i,j]:=random(19)-9;
end;

procedure WriteMatrix;
var i,j:integer;
begin
  for i:=1 to n do begin
    for j:=1 to n do
      Write(in_m[i,j],'   ');
    WriteLn;
  end;
end;

procedure CreateVector;
var i,j,k:integer;
begin
  k:=1;
  for i:=1 to n do
    for j:=1 to n do begin
      tmp_m[k]:=in_m[i,j];
      inc(k);
    end;
end;

function SortVector: integer;
var i,j,temp: integer;
begin
  for i:=1 to n*n-1 do
    for j:=1 to n*n-i do
      if tmp_m[j]>tmp_m[j+1] then begin
        tmp_m[j]:=tmp_m[j]+tmp_m[j+1];
        tmp_m[j+1]:=tmp_m[j]-tmp_m[j+1];
        tmp_m[j]:=tmp_m[j]-tmp_m[j+1];
        if (tmp_m[j+1]>=0) and (tmp_m[j]<0) then temp:=j+1;
      end;
  SortVector:=temp;
end;

procedure CreateOutVector(first_plus: integer);
var i,j,k: integer;
begin
  i:=1;
  j:=first_plus;
  k:=1;
  While (i<first_plus) and (j<=n*n) do begin
    out_m[k]:=tmp_m[j];
    inc(k);
    out_m[k]:=tmp_m[i];
    inc(k);
    inc(i);
    inc(j);
  end;
  While i<first_plus do begin
    out_m[k]:=tmp_m[i];
    inc(k);
    inc(i);
  end;
  While j<=n*n do begin
    out_m[k]:=tmp_m[j];
    inc(k);
    inc(j);
  end;
end;

procedure WriteVector(v:Vector);
var i: integer;
begin
  For i:=1 to n*n do Write(v[i],'   ');
end;

begin
  CreateMatrix;
  WriteLn('Исходная матрица: ');
  WriteMatrix;
  ReadLn;
  WriteLn(' ');
  CreateVector;
  WriteLn('Временный вектор: ');
  WriteVector(tmp_m);
  ReadLn;
  WriteLn(' ');
  fp:=SortVector;
  WriteLn('Отсортированный по возрастанию временный вектор: ');
  WriteVector(tmp_m);
  ReadLn;
  WriteLn(' ');
  CreateOutVector(fp);
  WriteLn('Результирующий вектор: ');
  WriteVector(out_m);
  ReadLn;
end.

[Freedo]

Sciv, спасибо, то что нужно.

[Freedo]

Не мог бы кто-нибудь объяснить вот этот момент.

if i mod 2 =0 then begin d[i]:=b[i div 2 ]; end;
if odd(i) then  begin d[i]:=c[i div 2+1 ]; end; end;

Понятно, что если чётное то d[i]:=b[i div 2 ], а если нечётное то d[i]:=c[i div 2+1 ], но вот как точнее это высказать, почему div 2 и div 2+1?


d - массив с чередующимися сиволами.
b - массив с положительными числами.
c - массив с отрицательными числами.

Всё ненадо, сам разобрался, нужно было всего лишь правильно поставить вопрос.

[Sciv]

хех... я уже отвечать начал, потом дочитал...