Як можна пов'язати інформацію про подію вірогідністю події?​

формувати розуміння понять інформації, повідомлення і даних; уміння визначати властивості інформації; розуміння різних аспектів інформації; розвивати ключові компетентності: математичну, інформаційно-комунікаційну, громадянські та соціальні.

1)

var n,k: integer;

begin

readln(n);

if (n>0) and (n<10) then k:=1

else if (n>9) and (n<100) then k:=2

else k:=3;

write(k);

end.

2)

var a,b,c: integer;

D,x1,x2: real;

begin

readln(a,b,c);

D:=b*b-4*a*c;

if(D>0) then begin

x1:=((-1)*b+sqrt(D))/(2*a);

x2:=((-1)*b-sqrt(D))/(2*a);

write(x1,' ',x2);

end else if (D=0) then begin

x1:=(-1)*b/(2*a);

write(x1);

end else write('Нет решений');

end.

3)

var x,y: integer;

begin

readln(x,y);

if(x=0) or (y=0) then write('точка лежит на координатной оси')

else begin

if(x>0) then begin

if(y>0) then write('I')

else write('IV');

end else

if(y>0) then write('II')

else write('III');

end;

end.

Если на скорую руку, то так, должно скомпилится :)
#include <iostream>
#include <random>
#include <ctime>
using namespace std;

const int n = 10;
mt19937 gen(time(0));
uniform_int_distribution<> uid(-50, 50);

int main()
{
int x[n], s1, s2;
s1 = s2 = 0;
for (int i = 0; i < n; ++i) {
x[i] = uid(gen);
cout << x[i] << " ";
}
for (int i = 0; i < (n / 2); ++i) {
if (x[i] > 0) {
s1 += x[i];
}
}
for (int i = (n/2); i < n; ++i) {
if (x[i] < 0) {
s2 += x[i];
}
}
cout << endl;
cout << "S1= " << s1 << endl;
cout << "S2= " << s2 << endl;

return 0;
}