#include <iostream> #include <string> #include <cstdlib> #include <algorithm> using namespace std; typedef unsigned short int USI;
int* fillArray(string name, int s); int maxArray(int[], int s); bool isPrime(int); void deleteAllEqualTo(int[], int s, int value); float averageOfPositive(int[], int s); void printArray(int[], int s);
bool sortByDescAbs(int i, int j) { return abs(i) > abs(j); }
int main() { setlocale(LC_ALL, "Russian"); USI n; cout << "n = "; cin >> n; int* z = fillArray("z", n); int max = maxArray(z, n); if ( isPrime(max) ) { deleteAllEqualTo(z, n, max); } float avg = averageOfPositive(z, n); cout << "среднее: " << avg << '\n'; sort(z, z + n, sortByDescAbs); cout << "z[" << n << "]: "; printArray(z, n); return 0; }
int* fillArray(string name, int s) { int array[s]; for (int i = 0; i < s; i++) { cout << name << "[" << i << "] = "; cin >> array[i]; } return array; }
int maxArray(int a[], int s) { int max = a[0]; for (int i = 1; i < s; i++) { if (a[i] > max) max = a[i]; } return max; }
bool isPrime(int n) { if (n < 2) return false; if (n == 2) return true; if (n % 2 == 0) return false; for (int i = 3; (i*i) <= n; i += 2) { if (n % i == 0 ) return false; } return true; }
void deleteAllEqualTo(int a[], int s, int value) { for (int i = 0; i < s; i++) { if (a[i] == value) a[i] = 0; } }
float averageOfPositive(int a[], int s) { unsigned int sum = 0, count = 0; for (int i = 0; i < s; i++) { if (a[i] > 0) { sum += a[i]; count++; } } return (sum / count); }
void printArray(int a[], int s) { for (int i = 0; i < s; i++) { cout << a[i] << ' '; } }
Сумма 4-х степеней N-значного числа не превосходит N * 9^4 < 10000N. С другой стороны, N-значное число больше 10^(N-2). Для того, чтобы одно было равно другому, должно выполниться 10^(N - 2) < 10000N, 10^N < N * 10^6. Так может быть, только если N < 7, поэтому ищем числа среди 1..999999.
Код: function Sum4Deg(n: integer): integer; var s: integer; begin s := 0; repeat s := s + sqr(sqr(n mod 10)); n := n div 10; until n = 0; Sum4Deg := s; end;
var i: integer; begin for i := 1 to 999999 do if i = Sum4Deg(i) then writeln(i); end.
2
Объяснение:
Если не выбрать всю дорожку то удалится только клетка