Так как мало балов, рисовать было не охота, думаю это сам сделаешь.
a-1 число
b-2 число
c-3 число
e-среднее арифметическое
1) a+b+c=d
2)e= d/3
Program pm;
uses crt;
var X:array[1..1000] of integer; k,a,b,i:integer;
begin
clrscr;
write('Введите кол-во элементов массива: ');
read(k);
writeln;
write('Введите диапазон значений заполнения(A-начальное значение, B-конечное): ');
repeat
read(a,b);
until a<=b;
writeln;
randomize;
for i:=1 to k do X[i]:=random(b-a+1)+a;
writeln('Ваш массив:');
for i:=1 to k do write(X[i]:5);
writeln;
write('Введите элемент поиска: ');
read(b);
a:=0;
for i:=1 to k do if X[i]=b then a:=i;
if a>0 then writeln('Элемент со значением ',b,' имеет индекс ',a)
else writeln('Элемента не существует!');
readkey;
<span>end.</span>
#include <iostream>
<span>#include <cmath>
</span><span>using namespace std;
</span>int main() {
<span> float x,y,z,t,ks;
</span><span> t=3.0;
</span><span> cout<<"x = "; cin>>x;
</span><span> cout<<"y = "; cin>>y;
</span><span> cout<<"z = "; cin>>z;
</span><span> ks=abs(pow(x,y/x)-pow(y/x,1/t))+(y-x)*
</span><span> (cos(y)-z/(y-x))/(1+pow((y-x),2));
</span><span> cout<<ks<<endl;
</span><span> system("pause");
</span><span> return 0;
</span><span>}
x = 1.825e2
y = 18.225
z = -3.298e-2
1.2132
</span>
1. На экран выведется число 17
2. На экран выведется число 25
3. На экран выведется число 27