Элементы заданного 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.
Не нашли ответ?
Похожие вопросы