Найти количество элементов массива А(10), значения которых лежат между средним арифметическим элементов массива В(10) и средним геометрическим элементов массива С(10) ответ в виде программы для Паскаля
int main() { setlocale(LC_ALL, "Russian"); int N, y, i; bool Prime; cout << "Введите число: "; cin >> N; do { Prime = true; y = N % 10; for (i = 2; i <= (sqrt(abs(y))); i++) { if (y % i == 0) { Prime = false; break; } } if ((Prime) & (y != 0) & (y != 1)) cout << y << " - простое" << endl; else cout << y << " - не простое" << endl; N = N / 10; } while (N != 0); system("pause"); return 0; }
Var a: array[1..10] of integer; b: array[1..10] of real; i,n: integer; s: real; begin s:=0; n:=0; write('массив a: '); for i:=1 to 10 do begin read(a[i]); if a[i]<0 then begin s:=s+a[i]; n:=n+1; end; write(a[i],' '); end; s:=s/n; writeln; writeln('среднее арифметическое отрицательных: ',s); writeln('количество отрицательных: ',n); write('массив b: '); for i:=1 to 10 do begin if a[i]<0 then b[i]:=s else b[i]:=a[i]; write(b[i]:7:3); end; end.
Function Task(A() As double, B() as double, C() as double) As integer
n%=Ubound(A,1)
m%=Ubound(B,1)
k%=Ubound(C,1)
s#=0
p#=1
For i%=1 to m%
s#=s#+B(i%)
next i%
s#=s#/m%
For i%=1 to k%
p#=p#*B(i%)
next i%
p#=p#^(1/k%)
if abs(p#-s#)<=1.0E-15 then
Task=0
Exit function
End if
if p# > s# then
t#=p#
p#=s#
s#=t#
End id
z%=0
for i%=1 to n%
if A(i%) >= p# And A(i%)<=s# then z%=z%+1
Next i%
task=z%
End Function