Написать программу в паскале. заполните массив из n элементов случайными числами в интервале [1,n] так, чтобы в массив обязательно вошли все числа от 1 до n (постройте случайную перестановку). пример: массив: 3 2 1 4 5

Const m = 50; var n,s,d,i,j: integer; a, b: array[1..m] of integer; beginwrite('введите число элементов n'); readln(n); for i: =1 to n dobeginb[i]: = i; write(b[i]: 3)end; writeln; while (d < n ) dobegins: = random(n)+1; for j: =1 to n dobeginif (b[j]> 0) and (s = b[j]) thenbegin   d: = d +1; a[d]: = s; b[j]: = -1;   end; end; end; for i: =1 to n dowrite(a[i]: 3); end.

375 киболайт = 375 * 1024 * 8 = 3072000 бит

3072000 : 128000 = 24 с

ответ. понадобится 24 с.