Var
sum, count, t : integer;
begin
sum := 0; count := 0;
while not eoln do
begin
read (t);
if t > 0 then
begin
sum := sum + t;
count := count + 1;
end;
writeln (sum, ' ', count);
end.
если количество элементов указано
var
sum, count, t, n, i : integer;
begin
sum := 0; count := 0;
read (n);
for i := 1 to n do
begin
read (t);
if t > 0 then
begin
sum := sum + t;
count := count + 1;
end;
writeln (sum, ' ', count);
end.
Я ничего незнаю мне самой нужен ответ но никио ничего не пишет
Крайние точки не учитываются. Если вам необходимо, чтобы они учитывались - замените знаки < и > на <= и >=
var
Y0,X0:integer;
begin
writeln('Введите координаты точки Y0 и X0');
readln(Y0,X0);
if ( ((X0>-6) and (X0<-3)) and ((Y0>-3) and (Y0<2)) )
or
( ((X0>-6) and (X0<-1)) and ((Y0>2) and (Y0<6)) )
then
writeln('Точка принадлежит области')
else
writeln('Точка НЕ принадлежит области')
end.
Используем формулу I = log(2)1/p
Вероятность сообщения "Достали красный клубок" = 4/(4+8) = 4/12 = 1/3
I = log(2)[1/(1/3)] = log(2)3 ≈ 1,585
Вероятность сообщения "Достали черный клубок" = 8/(4+8) = 8/12 = 2/3
I = log(2)[1/(2/3)] = log(2)[3/2] ≈ 0,585
=(7+2+6+4+6+0+9)/7=34/7=4,857142857142857