1) function numb(n:integer):integer; var n,ch,st,max:integer; begin st:=1; max:=-1; ch:=n mod 10; n:=n div 10; while(n>0)do begin ch:=ch+(n mod 10)*st; n:=n div 10; st:=st*2; end; while(ch>0)do begin if(ch mod 10>max)then max:=ch mod 10; ch:=ch div 10; end; numb:=max; end; 2) function yravn(a,b:integer):integer; begin yravn:=-b div a; end;
1. "Современный вариант" // PascalABC.Net 3.0, сборка 1076 begin var t:=ArrRandom(31,18,39); Writeln('Температуры июля',#13#10,t); Writeln('Температуры двух самых теплых дней: ', t.OrderByDescending(x->x).Take(2)) end.
Тестовое решение: Температуры июля [25,25,32,26,30,26,18,31,28,31,24,19,22,34,23,31,27,26,30,21,21,20,18,25,23,22,32,18,37,24,25] Температуры двух самых теплых дней: [37,34]
2. "Школьный вариант." // PascalABC.Net 3.0, сборка 1076 var t:array[1..31] of integer; i,max,max2:integer; begin Randomize; Writeln('Температуры июля'); max:=0; max2:=0; for i:=1 to 31 do begin t[i]:=Random(22)+18; Write(t[i],' '); if t[i]>max then begin max2:=max; max:=t[i] end else if t[i]>max2 then max2:=t[i] end; Writeln; Writeln('Температуры двух самых теплых дней: ',max,', ',max2) end.
Тестовое решение: Температуры июля 23 29 22 29 37 37 31 35 18 34 31 31 27 22 27 20 19 24 31 33 26 25 22 28 31 32 21 37 38 37 20 Температуры двух самых теплых дней: 38, 37
function numb(n:integer):integer;
var
n,ch,st,max:integer;
begin
st:=1;
max:=-1;
ch:=n mod 10;
n:=n div 10;
while(n>0)do
begin
ch:=ch+(n mod 10)*st;
n:=n div 10;
st:=st*2;
end;
while(ch>0)do
begin
if(ch mod 10>max)then
max:=ch mod 10;
ch:=ch div 10;
end;
numb:=max;
end;
2)
function yravn(a,b:integer):integer;
begin
yravn:=-b div a;
end;