Билет №7(1,2)

1. Реализовать программу, выводящую n-ый член последовательности, заданной рекурсивно: , где . 

#include <iostream>
#include<math.h>
using namespace std;

int f(int n) {
    if (n = 0) { return  1; }
    if (n = 1) { return  3; }
    return f(n - 1) + 2 * f(n - 2);
}
int main()
{
    int i;
        cin >> i;
    cout << f(i);
    system("PAUSE");
}

2.Входной файл содержит массив. В выходной файл записать две строки: первая должна содержать средние значение по строкам, вторая – по столбцам. Входящий файл input.txt, вывод осуществляется в файл output.txt

      program myprog
      integer, dimension(:,:), allocatable :: a
      integer m,n, siz
      real c1
      OPEN(10,FILE='input.txt')
      OPEN(15,FILE='output.txt')
      READ(10,*)n,m
      allocate (a(n,m))
      do i=1,n
      read(10,*) (a(i,j),j=1,m)
      end do
      do i=1,n
      siz=size(a(i,:))
      c1=sum(a(i,:))/siz
      WRITE(15,100) c1
      end do
      WRITE(15,*)
      do i=1,m
      siz=size(a(:,i))
      c1=sum(a(:,i))/siz
      WRITE(15,100) c1
      end do
      100 format(f6.2,\)
      close(10)
      close(15)
      end