Заполнить одномерный массив по правилу: b по основанию n =sin (n*p/180)

var
  b: array of real := new real [10];

begin
  for i: byte := 0 to length(b) - 1 do
    b[i] := sin(i * pi / 180);

    for i: byte := 0 to length(b) - 1 do
    writeln(String.Format(b_{0} = {1}, i, b[i]));
end.

Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.