Элементы заданного массива B50 переписать в новый массив A50 в обратном порядке.
Элементы заданного массива B50 переписать в новый массив A50 в обратном порядке.
Гость
Ответ(ы) на вопрос:
Гость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.
Не нашли ответ?
Похожие вопросы