Почему программа в 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...
Почему программа в 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.
Гость
Ответ(ы) на вопрос:
Не нашли ответ?
Похожие вопросы