Var sum: real; x,n: integer; begin readln(n); begin sum: =0; for x: =1 downto 1/n*n do sum: =sum+x; end; writeln(sum); end. в чём проблема? подскажите .

Var
a: array [1..10] of integer;
i,j,k:integer;
begin
for i:=1 to 10 do begin
a[i]:=Random(50);
write(a[i],);
end;
for i:=1 to 9 do
begin
if (a[i]>a[i+1] )then
writeln(i);
end;
end.
надеюсь это что вам нужно

2)Сплошная тонкая√√√√√√√√√√√√√√√

10 -> 2

2018 / 2 = 1009. Остаток 0.
1009 / 2 = 504. Остаток 1.
504 / 2 = 252. Остаток 0.
252 / 2 = 126. Остаток 0.
126 / 2 = 63. Остаток 0.
63 / 2 = 31. Остаток 1.
31 / 2 = 15. Остаток 1.
15 / 2 = 7. Остаток 1.
7 / 2 = 3. Остаток 1.
3 / 2 = 1. Остаток 1.

Берём ответ последнего деления и идём по остаткам от конца до начала.
11111100010

2 -> 16

От конца берём по 4 цифры и считаем их значение по заранее составленной таблице.
[111][1110][0010] = [7][14][2] = 7E2

16 ->10

Нумеруем цифры от конца до начала индексами в порядке возрастания, начиная от 0, впоследствии каждую цифру нужно умножить на порядок той системы счисления, из которой производится перевод (16), возведённой в степень, равную индексу, и всё сложить.
7E2 = [7][14][2] = 7 * 16^2 + 14 * 16^1 + 2 * 16^0 = 1792 + 224 + 2 = 2018