Ответы
Гость Var
n, i: integer;
ar: array[1..10000]of integer;
begin
read(n);
for i := n downto 1 do
begin
ar[i] := i;
write(ar[i], ' ');
end;
end.
Нет комментариев
Список предметов
