Задача A-Ймовірність Сорока Дмитро var n,i:longint; a,b:Array[0..10001]of longint; begin read(n); fillchar(b,sizeof(b),0); for i:=1 to n do begin read(a[i]); inc(b[a[i]]); end; for i:=1 to n do begin writeln(b[a[i]]/(n-i+1)*100:0:3,' %'); dec(b[a[i]]); end; end.
Задача A-Ймовірність Франчук Роман #include <iostream> #include <iomanip> using namespace std; int r[10001]; int nums[10000]; int main() { int n; cin >> n; for(int i = 0; i < n; i++) { cin >> nums[i]; r[nums[i]]++; } cout << fixed << setprecision(3); for(int i = 0; i < n; i++) { cout << double(r[nums[i]])/double(n - i)*100.0 << " %\n"; r[nums[i]]--; } return 0; }