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

[Lutan]

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

[Айра]

но ответ выводит не тот, который нужен. выводит всего 0

Естесственно, смотри:

readln(A[i]); //ты заполняешь массив А, хотя по заданию надо В..
    end;
    for i:=n downto 1 do A[N-i+1]:=B[i]; //а тут ты ему же присваиваешь значения из массива В, 
                                                          //который пока что состоит из нулей
    write(B[i],'  '); //и выводишь ты в не цикла (begin\end вроде еще не отменяли)))

Должно быть так:

var
i, n: integer;
A,B:array [1..50] of integer;
begin
  Write('Vvedite kol-vo 4isel v massive, N=');
  Readln(n);
  for i:=1 to n do
    begin
      write('Vvedite B[',i,']=');
      readln(B[i]);  //заполняешь массив _В_
    end;
  for i:=n downto 1 do
    begin
      A[n-i+1]:=B[i];
      write(A[n-i+1],'  ');  //и выводить нужно с таким индексом, иначе, при A[i] ты выводишь 
                                   // элементы, которые еще не заполнены, то бишь нули
    end;
  readln;
end. 

Сообщение отредактировано: Айра - 17.01.2008 0:28