PASCAL ABC .
Найдите решения задачи о выборе положения железнодорожной станции если известны средние затраты на строительство 1 км автомобильной дороги до каждого населенного пункта :
za=530
zb=180
zc=940
требуется найти такое положение железнодорожной станции чтобы затраты на строительство дорог были минимальны.
type
t=array[1..30] of integer;
var
a:t;
i,h,max,max1,y:integer;
q,c:real;
procedure chet(a:t);
var
i,z:integer;
begin
z:=0;
for i:=1 to 30 do
if(odd(a[i])=false) then inc(z);
writeln(z);
end;
begin
for i:=1 to 30 do
read(a[i]);
//1
chet(a);
//2
h:=0;
c:=0;
for i:=1 to 30 do
if((a[i] mod 3 = 0) and (a[i] mod 9 <> 0) and (a[i]>9) and (a[i]<100)) then begin inc(h);
c:=c+a[i];
end;
if(h=0) then writeln(-1)
else writeln(c/h);
//3
h:=0;
max:=0;
for i:=1 to 30 do begin
if((odd(a[i])=false) and (y=0)) then begin
h:=i;
y:=1;
continue;
end;
if((y>0) and ((odd(a[i])=false))) then
inc(y)
else
if(y>max) then begin
max:=y;
max1:=h;
y:=0;
end
else y:=0;
end;
for i:=max1 to max+max1-1 do
write(a[i],' ');
writeln;
//4
readln(h);
y:=a[h];
for i:=h to 29 do
a[i]:=a[i+1];
for i:=1 to 29 do
write(a[i],' ');
for i:=29 downto h do
a[i+1]:=a[i];
a[h]:=y;
writeln;
//5
max:=0;
max1:=0;
for i:=1 to 30 do begin
if(a[i]>max) then begin
max1:=max;
max:=a[i];
end;
if((a[i]>max1) and (a[i]<max)) then
max1:=a[i];
end;
writeln(max1);
end.