Question

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

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.