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

[Serge_Bliznykov]

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

не может быть!!
Рассказывайте: Что меняли в коде?
Какой используете компилятор Паскаля?
приведите свой код полностью + скриншот ошибки...

на всякий случай вот мой код из предыдущего поста целиком (там же в архиве и EXE-шник вложен).

[Irisk]

да,так и пишет:нельзя присвоить левой части
паскаль ABC. из вашего вложения запускаю,и тоже ошибка эта

[Hacker19_90]

uses crt;
const n = 5;
const a: array[1..n] of integer
            = (2, 0, -5, -8, 6);
var
    i, temp, j: integer;
    f: file of integer;
begin
for i := 1 to n do
begin
     if a[i] < 0 then
     begin
         for j := i to n - 1 do
         begin
               temp = a[i];
               a[i] := a[i+1];
               temp = a[i+1];
         end;
     break;
     end;
end;
 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);
end.

А если так??
Писал с потолка

[Serge_Bliznykov]

Hacker19_90, с Вашим кодом будет та же самая беда..

Так. Всё понятно.
буквально пару дней назад это обсуждалось на форуме.
Проблема с типизированными константой.

Irisk, Вы ТОЧНО уверены, что Вам нужно сделать задание в Pascal ABC ?!
если да, тогда массив, заданный типизированной константой перепишите в обычный VAR массив.
Ваш Паскаль считает, раз написали слово CONST - значит это константа и изменять её НЕЛЬЗЯ! Без вариантов!

например, такой код сработает в PascalABC:

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

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

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

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

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


    readln;
end.

[Irisk]

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

[Stilet]

Да он итак как бы не удобочитаемый должен быть...
Зачем его еще кодировать то? Попробуй его в блокноте открой - увидишь кракозяблики.

[Serge_Bliznykov]

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

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

не удобочитаемый должен быть...
Зачем его еще кодировать то?

Присоединяюсь к мнению Виталия!

Впрочем. Простейшее кодирование - XOR с ключиком.
Для простоты можно все элементы файла кодировать ОДНИМ и тем же ключом. Это будет и просто и задачу поставленную решит...

{зададим ключ шифрования (любая константа, отличная от нуля и в рамках Integer)}
const KlKey : integer = $32417345;

var
  XCoded : integer;

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

[Irisk]

Всем большое спасибо!!!!!))))