Кто скажет, для чего нужна эта программа - получит 50р на счёт.
Program test;
var
i,j,a,b,god,c,mini,number:integer;
mas:array[1..12,1..31] of integer;
min:array[1..12] of integer;
month;array[1..12] of integer;
Begin
begin
a:=0;
for i:=1 to 31 do
for j:=1 to 12 do
begin
a:=a+mas[i,j];
end;
god:=a/365;
for j:=1 to 12 do
begin
if j mod 2>0 or j=8 then n=31
else n=30;
if j=2 then n=28;
for i:=1 to n do
begin
b:=b+mas[i,j];
min[j]:=b;
end;
end;
n=0;
for i:=1 to 12 do
begin
if i mod 2>0 or i=8 then n=31
else n=30;
if i=2 then n=28;
min[j]:=min[j]/n;
end;
for i:=1 to 12 do
begin
c:=abs(god-min[i]);
month[i]:=c;
end;
mini:=month[1];
for i:=1 to 12 do
if month[i]
number:=i;
end;
write(number);
end.
чтобы постепенно по перемен вращения в чайнике воды кагда афтар потставляет рот полезняшечья жыдкость текет по водяному насосу, переходя в полезняшечью трубку и тем самым стекая афтору в рот свежая порция гавна!