const
N = 12;
var
a: array[1..N] of integer;
c, d, k, count, sum, i: integer;
begin
writeln('Введите промежуток: '); readln(c, d);
writeln('Введите k: '); readln(k);
for i := 1 to N do begin
a[i] := random(30);
write(a[i], ' ');
if(a[i] > 0) and (a[i] mod k = 0) then inc(count);
end;
for i := c to d do begin
sum := sum + a[i];
end;
writeln;
writeln('Сумма элементов на промежутке [', c,';', d,'] : ', sum);
if(count <> 0) then writeln('Положительных элементов кратных ', k, ' : ', count);
end.
Поскольку об оценке ничего не говорится, можно только оперировать средним количеством информации для случая неравновероятных событий. А это формула Шеннона.
1. Определяем вероятности получения оценок.
Общее количество оценок равно 5+10+6+4 = 25.
Вероятность получения пятерки составляет 5/25 = 0.2
Четверки - 10/25 = 0.4, тройки 6/25 = 0.24, двойки 4/25 = 0.16.
На всякий случай проверим сумму вероятностей - должна получиться единица. 0.2+0.4+0.24+0.16 = 1. Все верно
2. Подставляем значения в формулу Шеннона
Ответ: приблизительно 1.91 бита
Решение на картинке :)
Ответ: 229
_________
by DENDEX™ (буду благодарен за выбор как лучший)
var a:array [1..10] of integer;
b,i:integer;
z:real;
begin
randomize;
for i:=1 to 10 do
begin
z:=random;
b:=random(10);
if z>0.5 then a[i]:=b
else a[i]:=-b;
end;
for i:=1 to 10 do
write(' ',a[i]);
end.
если что то не понятно,спрашивай)
//Дам блок-схему и код на Паскале
//Pascal ABC.NET v3.0 сборка 1111
var
r,v,s:real;
begin
readln(r);
v:=4/3*pi*power(r,3);
s:=3/4*pi*sqr(r);
writeln('V=',v,' S=',s);
end.