массивы

[andrewpalkin]

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

ну вроде как )

Кое что набросал тебе , но там 2 массива , если нужен один , то не сегодня ... Уже надо отдыхать , ночь на дворе

[spr1te_]

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

Кое что набросал тебе , но там 2 массива , если нужен один , то не сегодня ... Уже надо отдыхать , ночь на дворе

согласен )
вот только SysUtils опять упоминается (

[andrewpalkin]

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

согласен )
вот только SysUtils опять упоминается (

Просто забыл его удалить , я же говорил , у меня нет паскаля на компе . Прогони программу сейчас , я поправил код на прошлой странице

[spr1te_]

нельзя перео6разовать выражение типа array[1...15] of integer к типу string

[alex_fcsm]

вместо length(arr) пишите длину своего массива - 15

[spr1te_]

пойдёт )thx

[andrewpalkin]

Как я и обещал , программа без использования второго массива

program abswlkr;
uses crt;
var i,j,temp:integer;
arr : array [1..15] of integer;

begin
clrscr;

arr[1]:=1; arr[2]:=2; arr[3]:=3;
arr[4]:=-6; arr[5]:=-12; arr[6]:=90;
arr[7]:=-2; arr[8]:=7; arr[9]:=55;
arr[10]:=-49; arr[11]:=1; arr[12]:=-32;
arr[13]:=12; arr[14]:=16; arr[15]:=-3;

for i:=1 to 14 do
begin
     for j:=15 downto (i+1) do
     begin
          if ((arr[j]<0) and (arr[j-1]>=0)) then
              begin
                   temp := arr[j];
                   arr[j] := arr[j-1];
                   arr[j-1] := temp;
             end;
     end;
end;

for i:=1 to 15 do
    begin
         write ('  ',arr[i]);
    end;
end.

[spr1te_]

thx
это ж теперь плюсик надо ))

[andrewpalkin]

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

thx
это ж теперь плюсик надо ))

Ну а ты как думал