Напишите программу, которая строит последовательность из n случайных чисел на отрезке от 0 до 1 и определяет, сколько из них попадает в полуинтервалы [0; 0,25), [0,25; 0,5), [0,5; 0,75) и [0,75; 1). сравните результаты, полученные при n=10,100, 1000, 10000.

Программа (pascalabc.net, 3.1.1204): begin   var arr : = arrrandomreal(readinteger('n ='), 0, 1);   writeln('[0; 0.25):   ',     arr.where(x-> (x> =0) and (x< 0.);   writeln('[0.25; 0.5): ',     arr.where(x-> (x> =0.25) and (x< 0.);   writeln('[0.5; 0.75): ',     arr.where(x-> (x> =0.5) and (x< 0.);   writeln('[0.75; 1):   ',     arr.where(x-> (x> =0.75) and (x< ); end. можете её запускать при разных n. у меня получилось так (четыре числа - число попавших в интервал): n = 10. 3, 1, 2, 4 n = 100.  21, 29, 21, 29 n = 1000. 272, 240, 241, 247 n = 10000. 2588, 2383, 2464, 2565 результаты могут отличаться (массив из случайных чисел генерируется, всё-таки), но тенденция должна быть такой: в каждый интервал должны попадать примерно четверть всех точек, притом с увеличением n отклонение доли попавших в тот или иной полуинтервал должно отклоняться от 25% всё меньше.

Var a: array [1..100, 1..100] of real; sum: real; i, j, n: integer; begin       read(n);       sum : = 0;       for i : = 1 to n do           for j : = 1 to n do           begin               read(a[i, j]);               if i = j then sum : = sum + a[i, j];           end;       for i : = 1 to n do       begin           for j : = 1 to n do               write(a[i, j], ' ');           writeln;       end;       writeln(sum); end.