1.Реализовать программу, выводящую N первых чисел последовательности Фибоначчи.
program abc
integer n,a,z
read(*,*)n
do i=1,n
write(*,*)fb(i)
end do
read(*,*)n
contains
recursive function fb(n)
integer n
if (n==1.or.n==2) then
fb=1
else
fb=fb(n-1)+fb(n-2)
end if
end function fb
end program
2.
Дан файл, заполненный случайными целыми числами. Из данной последовательности удалить по пять самых больших положительных и отрицательных чисел и записать в другой файл. Входящий файл input.txt, вывод осуществляется в файл output.txt.
#include <fstream>
#include<iostream>
#include <tchar.h>
#include <stdio.h>
using namespace std;
void main()
{ifstream input;
ofstream output;
input.open("input.txt");
output.open("output.txt");
int n=0,k=0,i=0,max,nmax,min,nmin;
while(!input.eof())
{input>>k;
n++ ;}
//cout<<n;
int *b;
b=new int(n);
int *a;
a=new int(n-10);
input.close();
input.open("input.txt");
for (int i=0;i<=n;i++)b[i]=0;
while(!input.eof()){
input>>b[i];i++;}
for(int i=0;i<n;i++){cout<<" "<<b[i];}
//поиск максимума
for (max=b[0], nmax=0, i=0; i<n; i++)
if (max<b[i])
{
max=b[i];
nmax=i;}
for (int i = nmax; i <n; i++) // сдвигаем массив
b[i] = b[i + 1];
b[i] = 0; // меняем мах на 0
//поиск максимума
for (max=b[0], nmax=0, i=0; i<n; i++)
if (max<b[i])
{
max=b[i];
nmax=i;}
for (int i = nmax; i <n; i++) // сдвигаем массив
b[i] = b[i + 1];
b[i] = 0; // меняем мах на 0
//поиск максимума
for (max=b[0], nmax=0, i=0; i<n; i++)
if (max<b[i])
{
max=b[i];
nmax=i;}
for (int i = nmax; i <n; i++) // сдвигаем массив
b[i] = b[i + 1];
b[i] = 0; // меняем мах на 0
//поиск максимума
for (max=b[0], nmax=0, i=0; i<n; i++)
if (max<b[i])
{
max=b[i];
nmax=i;}
for (int i = nmax; i <n; i++) // сдвигаем массив
b[i] = b[i + 1];
b[i] = 0; // меняем мах на 0
//поиск максимума
for (max=b[0], nmax=0, i=0; i<n; i++)
if (max<b[i])
{
max=b[i];
nmax=i;}
for (int i = nmax; i <n; i++) // сдвигаем массив
b[i] = b[i + 1];
b[i] = 0; // меняем мах на 0
cout<<endl<<"massiv bez 5 max";
for(int i=0;i<n-5;i++){cout<<" "<<b[i];}
//поиск 5 минимумов
for (min=b[0], nmin=0, i=0; i<n; i++)
if (min>b[i])
{
min=b[i];
nmin=i;}
for (int i = nmin; i <n; i++) // сдвигаем массив
b[i] = b[i + 1];
b[i] = 0;
for (min=b[0], nmin=0, i=0; i<n; i++)
if (min>b[i])
{
min=b[i];
nmin=i;}
for (int i = nmin; i <n; i++) // сдвигаем массив
b[i] = b[i + 1];
b[i] = 0; for (min=b[0], nmin=0, i=0; i<n; i++)
if (min>b[i])
{
min=b[i];
nmin=i;}
for (int i = nmin; i <n; i++) // сдвигаем массив
b[i] = b[i + 1];
b[i] = 0; for (min=b[0], nmin=0, i=0; i<n; i++)
if (min>b[i])
{
min=b[i];
nmin=i;}
for (int i = nmin; i <n; i++) // сдвигаем массив
b[i] = b[i + 1];
b[i] = 0; for (min=b[0], nmin=0, i=0; i<n; i++)
if (min>b[i])
{
min=b[i];
nmin=i;}
for (int i = nmin; i <n; i++) // сдвигаем массив
b[i] = b[i + 1];
b[i] = 0;
cout<<endl<<"massiv bez 5 min";
for(int i=0;i<n-10;i++){cout<<" "<<b[i];}
//запись в файл
for(int i=0;i<(n-10);i++){output<<" "<<b[i];};
cout<<"PE3yLTAT B OUTPUT";
input.close();
output.close();
system("pause");
}