1. Дан массив, вывести с клавиатуры размерность

var a: array of integer; n, i: integer; begin randomize; write ('Введите размерность массива: '); readln (n); Setlength (a, n); writeln ('Массив: '); for i: =0 to n — 1 do begin a[i]: =random (21) — 10; write (a[i]: 5); end; writeln; writeln ('Результат деления отрицательных элементов на 2: '); for i: =0 to n — 1 do begin if a[i] < 0 then write (a[i] / 2:5) else write (a[i]: 5) end; end.