На Паскале
var
a:array[1..10] of real;
i:integer;
begin
a[1]:=3;
a[2]:=4;
for i:=3 to 10 do
a[i]:=(a[i-2]+a[i-1])/2;
for i:=1 to 10 do
write(a[i],' ');
end.
На C++
#include
void main()
{
float a[10] = { 3,4 };
for (int i = 2; i < 10; i++)
a[i] = (a[i - 2] + a[i - 1]) / 2;
for (int i = 0; i < 10; i++)
std::cout << a[i] << '\t';</span>
system("pause");
}