Дан массив А(20). Получить массив В(20), в котором В(1)=А(2), В(2)=А(1), В(3)=А(4), В(4)=А(3) и т.д. Выве

[nikita1]

Дан массив А(20). Получить массив В(20), в котором В(1)=А(2), В(2)=А(1), В(3)=А(4), В(4)=А(3) и т.д. Вывести массив В.

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

PROGRAM NIKITA;
Uses CRT;
var A:array[1..20] of real;
var B:array[1..20] of real;
var i:integer;
begin
	clrscr;
	for i:=1 to 20 do
	readln (a[i]);
	if i mod 2=0 then
	begin
	for i:=1 to 20 do
	B[i]:= A[i-1];
	end
	else
	begin
	for i:=1 to 20 do
	B[i]:=A[i-1];
	end;
	for i:=1 to 20 do
	write (B[i]);
end.

[andrewpalkin]

...
for i:=1 to 19 do
begin
B[i]:= A[i+1];
B[i+1]:= A[i];
end
...

Это цикл для записи элементов в B[]

[nikita1]

PROGRAM NIKITA;
Uses CRT;
var A:array[1..20] of real;
var B:array[1..20] of real;
var i:integer;
begin
for i:=1 to 20 do
writeln('vvedite element massiva');
readln (a[i]);
for i:=1 to 19 do
begin
B[i]:=A[i+1];
B[i+1]:=A[i];
end;
for i:=1 to 20 do
write (B[i]:8:3);
end.

так? всё равно не работает..

[andrewpalkin]

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

PROGRAM NIKITA;
Uses CRT;
var A:array[1..20] of real;
var B:array[1..20] of real;
var i:integer;
begin
for i:=1 to 20 do
writeln('vvedite element massiva');
readln (a[i]);
for i:=1 to 19 do
begin
B[i]:=A[i+1];
B[i+1]:=A[i];
end;
for i:=1 to 20 do
write (B[i]:8:3);
end.

так? всё равно не работает..

А что именно не работает ??? Просто у меня нет установленного паскаля .
Покажи что он выдает и что ты вводишь , и вводишь ли ты все 20 элементов ?

[nikita1]

сорри,это я неправильно вводил..

Всё,теперь работает. Большое спасибо!

[nikita1]

всё таки есть ошибка...

В(1) он неправильно выдает. по формуле B[i]:= A[i+1];B[i+1]:= A[i] В(1) никак не получить. или я что то не так понимаю..