program massiv;
var i,n,max,sr,min,pozm,pozx:longint;
a:array[1..10]of longint;
begin
for i:=1 to 10 do
read(a[i]);
for i:=1 to 10 do
begin
if a[i]>max then begin max:=a[i]; pozm:=i; end;
if a[i]<min then begin max:=a[i]; pozx:=i; end;
end;
for i:= pozx+1 to pozm-1 do
sr:=sr+a[i];
sr:=sr div (pozm-pozx);
writeln(sr);
end.
запишем условие: I1=447.6Kб, I2=1.8Мб N-?
решение: выразим объем дискеты в Кб
1,8*1024=1843,2 Кб
N=I2/I1=1842.2/447.6=4.1179 (округлим до 4) это и есть ответ
P(вероятность) синих=10/20=1/2 Тогда N=2 Тогда i (количество информации)=1 (N=2^i)
Pзел= 5/20=1/4 N=4 i=2
Pж=4/20=1/5 N=5 i≈2.32
Pкр=1/20 N=20 i=4.32
1.
Var a,b,c : Integer;
Begin
Readln(a,b,c);
Writeln((a mod b)*(c div b));
end.
2.
Var a,d,c,k : Integer;
Begin
Readln(a,d,c,k);
Writeln((a+(d-12)*3)*(c-5*k));
end.
Расставляем соответствия по формату
1-d
2-c
3-b
4-a