массивы

[spr1te_]

дано линейную таблицу, которая содержит N действительных чисел. Составить алгоритм определения количества соседств двух положительных чисел и количества соседств двух отрицательных чисел .

дано линейную таблицу, которая содержит 15 действительных чисел, записать в эту таблицу сначала все отрицательные числа, а затем положительные и нули, сохраняя порядок следования

[andrewpalkin]

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

дано линейную таблицу, которая содержит N действительных чисел. Составить алгоритм определения количества соседств двух положительных чисел и количества соседств двух отрицательных чисел .

дано линейную таблицу, которая содержит 15 действительных чисел, записать в эту таблицу сначала все отрицательные числа, а затем положительные и нули, сохраняя порядок следования

А что у тебя уже написано и на каком языке ?

[spr1te_]

паскаль )
впринципе первую коректить надо

program abswlkr;
uses SysUtils,crt;
var i,z,y:integer;
arr : array [1..30] of integer;
begin
clrscr;
z:=0;
y:=0;
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;
arr[16]:=-67; arr[17]:=-2; arr[18]:=37;
arr[19]:=91; arr[20]:=56; arr[21]:=-3;
arr[22]:=-164; arr[23]:=-58; arr[24]:=-1;
arr[25]:=1; arr[26]:=-1; arr[27]:=-1;
arr[28]:=1; arr[29]:=1; arr[30]:=1;

for i:=1 to length(arr) do
begin
if (i>0) and (i<length(arr)) then
begin
if ((arr[i+1]>0) and (arr[i]>0)) or ((arr[i-1]>0) and (arr[i]>0)) then inc(z);
end;
end;

for i:=1 to length(arr) do
begin
if (i>0) and (i<length(arr)) then
begin
if ((arr[i+1]<0) and (arr[i]<0)) or ((arr[i-1]<0) and (arr[i]<0)) then inc(y);
end;
end;
writeln ('Положительных пар: '+intToStr(z));
write ('Отрицательных пар: '+intToStr(y));
end.

а за вторую не брался )

[andrewpalkin]

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

паскаль )
впринципе первую коректить надо

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

program abswlkr;
uses SysUtils,crt;
var i,z,y:integer;
arr : array [1..30] of integer;
begin
clrscr;
z:=0;
y:=0;
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;
arr[16]:=-67; arr[17]:=-2; arr[18]:=37;
arr[19]:=91; arr[20]:=56; arr[21]:=-3;
arr[22]:=-164; arr[23]:=-58; arr[24]:=-1;
arr[25]:=1; arr[26]:=-1; arr[27]:=-1;
arr[28]:=1; arr[29]:=1; arr[30]:=1;

for i:=1 to length(arr)-1 do
begin
if ((arr[i+1]>0) and (arr[i]>0)) then inc(z);
if ((arr[i+1]<0) and (arr[i]<0)) then inc(y);
end;

writeln ('Положительных пар: '+intToStr(z));
write ('Отрицательных пар: '+intToStr(y));
end.

[spr1te_]

а избежать SysUtils никак ?) тоесть использовать какойто стандартный паскаль-переобразователь? )

[andrewpalkin]

Попробуй вот это , но ничего не гарантирую , я давно не программировал на паскале :

program abswlkr;
uses crt;
var i,z,y:integer;
arr : array [1..30] of integer;
begin
clrscr;
z:=0;
y:=0;
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;
arr[16]:=-67; arr[17]:=-2; arr[18]:=37;
arr[19]:=91; arr[20]:=56; arr[21]:=-3;
arr[22]:=-164; arr[23]:=-58; arr[24]:=-1;
arr[25]:=1; arr[26]:=-1; arr[27]:=-1;
arr[28]:=1; arr[29]:=1; arr[30]:=1;

for i:=1 to length(arr)-1 do
begin
if ((arr[i+1]>0) and (arr[i]>0)) then inc(z);
if ((arr[i+1]<0) and (arr[i]<0)) then inc(y);
end;

writeln ('Положительных пар: ',z);
write ('Отрицательных пар: ',y);
end.

[spr1te_]

хех, благодарю, всё внорме )

[andrewpalkin]

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

хех, благодарю, всё внорме )

Плюсик в репутацию , тоже будет не плохо

P.S. Вторую задачу могу написать , но не смогу проверить , минут через 5 будет , напиши если работает и плюсик Вот только я не понял , во второй задаче можно использовать только один массив ?

[spr1te_]

ну вроде как )

[andrewpalkin]

program abswlkr;
uses crt;
var i,l,r:integer;
arr : array [1..15] of integer;
newarr : array [1..15] of integer;
begin
clrscr;

l:=1;
r:=15;

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 length(arr) do
begin
if (arr[i]<0) then 
begin 
newarr[l]:= arr[i];
inc(l);
end;

if ((arr[16-i]>0) or (arr[16-i]=0)) then 
begin 
newarr[r]:= arr[16-i];
r:=r-1;
end;
end;

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

end.