Ваш дедушка с выходом на пенсию решил на даче разводить пчел. Среди его знакомых нет пчеловодов, поэтому он обратился за к вам. Поскольку это дело не одного дня, вы решили создать таблицу полезных информационных ресурсов, по данным которой вы сможете консультировать пчеловода-начинающего. Дедушка стремится как можно быстрее начать, поэтому вы должны подготовить схему, по которой он может выбирать тип ульев и удобные для анализа сведения относительно расходов на породы пчел для своей пасеки.

1)
uses crt;
var a=array[1..8] of integer;
b=array[1..8] of integer;
i,min,j:integer;
begin
randomize;
min:=16;
for i:=0 to 8 do
begin
a[i]=random(30)-15;
if (a[i]<min)
min:=a[i];
end;
j:=0;
for i:=0 to 8 do
if (a[i] = min)
begin
b[j] = i;
j = j+1;
end;
for i:=0 to j do
writeln(b[i]);
end.
2)
uses crt;
var a=array[1..51] of integer;
i,sum,j,h:integer;
begin
h := 1;
for i:=1 to 51 do
begin
a[i]=i+h
h:=h+1;
if (i = 5 or i = 6 or i =7 or i = 8) there
begin
sum := sum=a[i];
j := j+1;
end;
end;
writeln(sum/j);
end.
3)
uses crt;
var a=array[1..12] of integer;
i,b:integer;
begin
randomize;
readln(b)
for i:=1 to 12 do
begin
a[i]=random(100)
if (a[i] = b) there
j := j+1;
end;
writeln(j);
end.

На печать?) я не знаю языка программирования который печатает вывод... короче держи паскаль : 
var
begin
  readln(n);
  if n=1 then begin writeln(31); exit; end;
  if n=2 then begin writeln(28); exit; end;
  if n=3 then begin writeln(31); exit; end;
  if n=4 then begin writeln(30); exit; end;
  if n=5 then begin writeln(31); exit; end;
  if n=6 then begin writeln(30); exit; end;
  if n=7 then begin writeln(31); exit; end;
  if n=8 then begin writeln(31); exit; end;
  if n=9 then begin writeln(30); exit; end;
  if n=10 then begin writeln(31); exit; end;
  if n=11 then begin writeln(30); exit; end;
  if n=12 then begin writeln(31); exit; end;

end.