В промежутке от 1 до 30 находится 10 чисел кратных 3, всего чисел 30.
Вероятность будет равна p= 10/30 = 1/3≈0.333
var
a:array [1..20] of integer;
i,c,k:integer;
sr:real;
begin
randomize;
for i:=1 to 20 do begin
a[i]:=random(80)-44;
write (a[i],' ');
end;
writeln;
write ('C = ');readln(c);
for i:=1 to 20 do
if a[i]>c then begin
sr:=sr+a[i];
k:=k+1;
end;
sr:=sr/k;
writeln (sr:0:2);
readln;
end.
Ключ, ключевое поле
тттттттт
Упражнение 3
1. 1-2
2. 2-1
3. 3-3
Упражнение 4
1. 1-4
2. 3-1
3. 2-3
4. 4-2
4 мин = 240 сек
256000*240= 61440000 бит за 4 мин
61440000 бит = 7680000 байт = 7500 Кбайт