составьте программу заполнения одномерного массива пятью элементами, которые вычисляются по формуле A(i)=(2i-1)/(2i+1)

program n1; var a:array[1..5] of real; i:integer; begin for i:=1 to 5 do begin a[i]:=(2*i-1)/(2*i+1); write(a[i],'  '); end; end.

const n = 5;var a:array[1..5] of real;  i:integer;begin  for i:=1 to n do begin    a[i]:=(2*i-1)/(2*i+1);    write(a[i]:8:3);  end;end.Тестовое решение:   0.333   0.600   0.714   0.778   0.818