Сформировать массив b b1:=sin1 ,b2:=cos2,b3:=sin3,b4:=cos4 n=10

Question

Сформировать массив b b1:=sin1 ,b2:=cos2,b3:=sin3,b4:=cos4 n=10

Comments

С помощью Паскаль

Answer 1

Const
  n = 10;
var
  b: array [1..n] of real;
  i: byte;
begin
  for i := 1 to n do
  begin
    b[i] := cos(i);
    writeln('b[',i,'] = ', b[i]);
  end;
end.