Программа:
<c> NaaMan}
program test;
var b : array[0..19] of integer;
begin
var a := ArrRandomInteger(20, 0, 100);
writeln(a);
for var i := 0 to 19 do
b[19 - i] := a[i];
writeln(b);
end.
Результат выполнения:
Поделитесь своими знаниями, ответьте на вопрос:
Дан массив из 20-ти случайных чисел.необходимо записать во второй массив значение первого в обратном порядке.С Паскаля
Программа:
<c> NaaMan}
program test;
var b : array[0..19] of integer;
begin
var a := ArrRandomInteger(20, 0, 100);
writeln(a);
for var i := 0 to 19 do
b[19 - i] := a[i];
writeln(b);
end.
Результат выполнения: