Сформировать массив из 10 чисел по следующим правилам: первый элемент равен 3, второй 4, а каждый следующий равен среднему арифметическому двух предыдущих написать )

На Паскале
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 <iostream>
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';
system("pause");
}