// PascalABC.NET 3.1, сборка 1204 от 24.03.2016 const n=100; // заменить на 10000 var a:array[1..n] of byte; i:byte; j:integer; begin // инициализация, для for j:=1 to n do a[j]:=Random(256); // собственно программа for i:=0 to 255 do for j:=1 to n do if a[j]=i then Write(i,' '); end.
#include <iostream>#include <ctime>int main(){ using namespace std; const int ArSize = 10; int ar[ArSize]; int s_less = 0, s_more = 0; int k_less = 0, k_more = 0; srand(time(0)); for (int i = 0; i < ArSize; i++) ar[i] = rand() % 101; for (int i = 0; i < ArSize; i++) cout << ar[i] << ' ';
for (int i = 0; i < ArSize; i++) { if (ar[i] < 50) { s_less = s_less + ar[i]; k_less = k_less + 1; } if (ar[i] > 50) { s_more = s_more + ar[i]; k_more = k_more + 1; } } cout << "\nAverage of numbers less than 50: " << (double)s_less / k_less << endl; cout << "Average of numbers more than 50: " << (double)s_more / k_more << endl; return 0;}