Пеpенести в хвост одномеpного массива пеpвый отpицательный элемент.

[Irisk]

ЗАДАЧА ПО ПАСКАЛЮ
Пеpенести в хвост одномеpного массива пеpвый
отpицательный элемент.

Ввод с помощью типизированной константы
Вывод в типизированный файл.
Помогите пожалуйста,завтра на зачете нужно будет

[Serge_Bliznykov]

какой язык программирования?

Задача простейшая...
Что вызывает трудности?

(это что, школьная задача? И какой, если не секрет класс? )

[Irisk]

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

uses crt;
var i,j,n,temp:integer;
const a:array[1..5] if integer(2,0,-5,-8,6);
begin
clrscr;
n:=5;
for i:=1 to n do
writeln(a[i],' ');
for i:=1 to n do
if a[i]<0 then
for j:=i+1 to n do begin temp:=a[j];
                                a[j]:=a[j-1];
                                a[j-1]:=temp;
end;
for i:=1 to n do
write(a[i],' ');
readln;
end.

как выводить в типизированный файл?


________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!
Модератор.

[Serge_Bliznykov]

в приведённом Вами коде несколько глупых опечаток..
Вы его что, с книжки набирали?!

[Irisk]

какие опечатки?

[Serge_Bliznykov]

uses crt;
const n = 5;
const a: array[1..n] of integer
            = (2, 0, -5, -8, 6);
var
  i, temp: integer;
  f : file of integer;
begin
    clrscr;
    Writeln('ishodnyj massiv: ');
    for i := 1 to n do
      write(a[i], ' ');
    Writeln;

    {поиск первого отрицательного элемента}
    i:=1;
    while (i<=n) and (a[i]>=0) do inc(i);

    if (i<=n) then {нашли отрицательный элемент}
      {поменяем i-й элемент c последним }
    begin
      temp := a[i];
      a[i] := a[n];
      a[n] := temp;
    end;

    {вывести преобразованный массив на экран}
    Writeln;
    Writeln('preobrazovannyj massiv: ');
    for i := 1 to n do
      write(a[i], ' ');
    Writeln;

    {запись в типизированный файл}
    Assign(f,'Massiv.dat');
    Rewrite(f);
    for i := 1 to n do
      write(f, a[i]);
    Close(f);


    readln;
end.

[Irisk]

выводится 2 0 -5 -8 6
2 0 6 -8 -5
а должно 2 0 -8 6 -5

[Serge_Bliznykov]

вы хотите, чтобы при переносе в хвост отрицательного значения, все остальные сдвинулись на один влево?..

да не вопрос:

uses crt;
const n = 5;
const a: array[1..n] of integer
            = (2, 0, -5, -8, 6);
var
  i, j, temp: integer;
  f : file of integer;
begin
    clrscr;
    Writeln('ishodnyj massiv: ');
    for i := 1 to n do
      write(a[i], ' ');
    Writeln;

    {поиск первого отрицательного элемента}
    i:=1;
    while (i<=n) and (a[i]>=0) do inc(i);

    if (i<n) then {нашли отрицательный элемент и он не крайний}
      {сдвинем все элементы влево на один,
        а i-й элемент поставим последним элементом массива }
    begin
      temp := a[i];
      for j:=i+1 to n do a[j-1]:=a[j];
      a[n] := temp;
    end;

    {вывести преобразованный массив на экран}
    Writeln;
    Writeln('preobrazovannyj massiv: ');
    for i := 1 to n do
      write(a[i], ' ');
    Writeln;

    {запись в типизированный файл}
    Assign(f,'Massiv.dat');
    Rewrite(f);
    for i := 1 to n do
      write(f, a[i]);
    Close(f);


    readln;
end.

[Irisk]

for j:=i+1 to n do a[j-1]:=a[j];
      a[n] := temp;
    end;

выдает ошибку нельзя присвоить левой части a[j-1]:=a[j];

[XeruH]

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

for j:=i+1 to n do a[j-1]:=a[j];
      a[n] := temp;
    end;

выдает ошибку нельзя присвоить левой части a[j-1]:=a[j];

Так и пишет?