Question

Почему программа в pascal ABC выдаёт что массив 0 program peremena; const N=8; var A:array[1..N] of integer; I,X: integer; begin for i:=1 to n do if i>N then begin begin x:=a[i]; a[i]:=a[n]; a[n]:=x end; begin x:=a[i+1]; a[i+1]:=a[n-1]; a[n-1]:=x end; end; writeLn('массив',A[i]:8) end.

Answer 1

Смотри вложение
........................

Answer 2

Похоже, у вас есть некоторые ошибки в вашем коде на Pascal ABC. Давайте разберем их.

1. В Pascal ABC используется := для присваивания, а не >.
2. Вы также используете begin и end внутри условия без необходимости.
3. У вас есть лишний блок begin и end после второго условия.

Вот исправленный код:

pascalCopy code
program peremena;
const
  N = 8;
var
  A: array[1..N] of integer;
  I, X: integer;

begin
  for I := 1 to N do
  begin
    if I > N then
    begin
      X := A[I];
      A[I] := A[N];
      A[N] := X;
    end;

    if (I + 1) > (N - 1) then
    begin
      X := A[I + 1];
      A[I + 1] := A[N - 1];
      A[N - 1] := X;
    end;
  end;

  for I := 1 to N do
    WriteLn('массив ', A[I]:8);
end.

Теперь код должен быть правильным. Если у вас есть какие-либо вопросы или нужна дополнительная помощь, дайте знать!