Помогите с задачей с циклом For i:=N downto 1 do, вроде легкая задачка) Опции

[Lutan]

Элементы заданного массива B(N) переписать в новый массив A(N) в обратном порядке

[Айра]

for i:=10 downto 1 do
begin
b[i]:=a[10-i+1];  //присваивание правильное
writeln('b[i]',b[i]); //а вывод нет.. у тебя массив В выводится с конца, а тогда похоже, 
                          //что заполнен он не правильно
end;

for i:=10 downto 1 do
begin
b[i]:=a[i];  //а здесь ты заполняешь его неправильно.. он получается такой же как А
writeln('b[i]',b[i]);  //а на выводе "обманываешься"))
end;

сделай в обоих вариантах вывод массива В "вне" цикла с присваиванием и посмотри, где правильно, а где нет..
и еще.. если тебе нужно видеть номер выводимого элемента, а не красивую буковку i , то надо делать так

writeln('b[',i,']',b[i]); //тогда и ошибки увидишь

Сообщение отредактировано: Айра - 27.01.2008 11:43

[Гость]

А вот теперь точно правильно...Спасибо за комментарии..я понял свои ошибки...

uses
crt;
var
a,b:array [1..10] of byte;
i:integer;
begin
clrscr;
write('b[i]>');
for i:=1 to 10 do
 readln(b[i]);
for i:=10 downto 1 do
begin
a[10-i+1]:=b[i];
end;
 for i:=1 to 10 do
  writeln(a[i]);
readln;
end.