1. Первый интервал 21-30, в него входят 10 чисел (21,22,23,24,25,26,27,28,29,30) = а вероятность будет равна количеству чисел этого интервала к общему интервалу [1;100]. Таким образом для первого интервала 10/100 = 10% = 0,1. 2.Идем по аналогии с предыдущим интервалом : [31;55] - это 25 чисел,следовательно 25/100=25% = 0,25. 3.Интервал [25;100] - это 75 чисел. 75/100=75%=0,75. 4. Ровно 25, это единственное число,а как вы уже успели заметить - каждое число является 1 процентом. Таким образом можно сразу сказать что вероятность для этого случая 1% или 0,01.
Const m=10; n=8; var a:array[1..m,1..n] of integer; i,j:integer; p:double;
begin Randomize; Writeln('Исходный массив'); for i:=1 to m do begin for j:=1 to n do begin a[i,j]:=Random(101)-50; Write(a[i,j]:4); end; Writeln end; p:=1; for j:=1 to n do if a[3,j]>0 then p:=p*a[3,j]; Writeln('Искомое произведение: ',p) end.
2.Идем по аналогии с предыдущим интервалом : [31;55] - это 25 чисел,следовательно 25/100=25% = 0,25.
3.Интервал [25;100] - это 75 чисел. 75/100=75%=0,75.
4. Ровно 25, это единственное число,а как вы уже успели заметить - каждое число является 1 процентом. Таким образом можно сразу сказать что вероятность для этого случая 1% или 0,01.
ответ: 0.1 ; 0.25 ; 0.75 ; 0.01.
m=10;
n=8;
var
a:array[1..m,1..n] of integer;
i,j:integer;
p:double;
begin
Randomize;
Writeln('Исходный массив');
for i:=1 to m do
begin
for j:=1 to n do
begin
a[i,j]:=Random(101)-50;
Write(a[i,j]:4);
end;
Writeln
end;
p:=1;
for j:=1 to n do
if a[3,j]>0 then p:=p*a[3,j];
Writeln('Искомое произведение: ',p)
end.
Тестовое решение:
Исходный массив
35 30 35 -25 -50 8 -20 47
-34 -26 -7 34 -9 -31 10 -46
-17 -21 27 8 27 41 35 -48
30 -44 25 48 30 -20 10 -6
-3 -10 45 -33 3 -38 -11 -8
47 -25 -27 -7 2 -20 -4 -48
-38 32 -29 -41 31 16 46 44
45 33 -4 45 34 -18 -33 37
15 49 -14 -49 -25 -8 1 -30
41 -15 11 1 17 -8 0 -1
Искомое произведение: 8368920