Элементы заданного массива B50 переписать в новый массив A50 в обратном порядке.

Question

Информатика

Антоныч

1 сентября, 22:38

Элементы заданного массива B50 переписать в новый массив A50 в обратном порядке.

+5

Ответы (1)

Знаете ответ на вопрос?

Павлуся · Answer 1

Const

n = 50;

var

i: integer;

a, b: array[1 ... n] of integer;

begin

for i : = 1 to n do

begin

a[i]: = random (100) - 50;

write (a[i], ' ') ;

end;

writeln;

for i : = 1 to n do

begin

b[i]: = a[n - (i-1) ];

write (b[i], ' ') ;

end;

end.