Помогите плиз Задан массив Х(50). Переписать в массив У элементы массива Х в обратном...

Question

Помогите плиз

Задан массив Х(50). Переписать в массив У элементы массива Х в обратном порядке

Answer 1

Var
   x, y: array [1..50] of integer;
   i: integer;
begin
     for i := 1 to 50 do
         x[i] := random(50);
     for i := 1 to 50 do
         y[i] := x[51 - i];
     for i := 1 to 50 do
          writeln('x[', i, '] => ', x[i]);
     for i := 1 to 50 do
          writeln('y[', i, '] => ', y[i]);
end.

Вот, циклы объединять не стал, т.к. они всё-таки разные дела делают:)

Comments

нужно решение и схема для QBasic

---

Lis50, это надо в условии задания указывать.

---

:( ПОМОГИТЕ ПЛИЗ

---

Боюсь, что на бэйсике здесь мало кто пишет

---

Я только на VB.NET