#include <iostream>
#include <cmath>
using namespace std;
void vvod(float z[10], int &n);
float Sa (float z[10], int n, float x) ;
//---------------------------------------------------------------------------
int main()
{float a[10], b[10], c[10], h, t, sa, sb,sc;
int i, na, nb, nc;
vvod(a,na);vvod(b,nb);vvod(c,nc);
sa=Sa(a,na,h);
sb=Sa(b,nb,h);
if (sa>sb) cout<<"A i B ikvivalentny" ;
else {sc=Sa(c,nc,t);cout<<"srednee arifmet massiva C ="<< sc;}
}
//---------------------------------------------------------------------------
void vvod ( float z[10], int & n)
{int i; cin>>n;
for (i=0; i<=n-1;i++)
cin>> z[i];
}
//---------------------------------------------------------------------------
float Sa (float z[10], int n, float x)
{int i, k; float s;
k=0; s=0;
for (i=0; i<=i-1;i++)
if (pow(z[i],2)>x) {s=s+z[i]; k++;}
if (k>0)s=s/k;
else cout <<"ochibka ";
return s;}
//---------------------------------------------------------------------------
Чтоб выпрялять не роавную поверхность у дерева
Ползунок.
...............................
Например при x=-1 y=0
Program gt;
var x,y:real;
begin
readln(x,y);
if(y<=x)and(y>=-x)and(x*x+y*y<=1)then writeln('YES') else
writeln('NO');
end.
