Дан массив из 100 элементов. необходимо заполнить первые n из них первыми n натуральными числами в порядке убывания. формат входных данных с клавиатуры вводится натуральное число n (n≤100n≤100). формат выходных данных требуется вывести содержимое первых n элементов массива после заполнения согласно условию . элементы должны разделяться пробелами.
i,n:integer;
begin
read(n);
for i:=n downto 1 do
ar[i]:=i;
for i:=n downto 1 do
write(ar[i],' ');
end.