Задача 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;
}
