Элементы заданного B(n) переписать в новый массив A(n) в обратном порядке( паскаль)
Элементы заданного B(n) переписать в новый массив A(n) в обратном порядке( паскаль)
Гость
Ответ(ы) на вопрос:
Гостьconst
N = 20;
var
a,b: array [1..N] of integer;
i : integer;
begin
//Для проверки заполним массив сл. числами
for i := 1 to N do
begin
b[i] := Random(41) - 20;
write(b[i]:4);
end;
writeln;
//Вывод в другой массив
for i := 1 to N do
begin
a[i] := b[n-i+1];
write(a[i]:4);
end;
end.
Гость// PascalABC.NET 3.1, сборка 1179 от 29.02.2016
begin
var b:=ArrRandom(ReadInteger('n='),10,99); b.Println;
var a:=b.Reverse.ToArray;
a.Println
end.
Тестовое решение:
n= 13
53 75 96 56 24 37 99 57 96 41 51 31 50
50 31 51 41 96 57 99 37 24 56 96 75 53
Не нашли ответ?
Похожие вопросы