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
1. Типовой "школьный" вариант // PascalABC.NET 3.0, сборка 1076 var s,a1,a2,a3:string; p:integer; begin s:='22 33 444'; p:=Pos(' ',s); a1:=Copy(s,1,p-1); Delete(s,1,p); p:=Pos(' ',s); a2:=Copy(s,1,p-1); Delete(s,1,p); a3:=s; Writeln(a1,#13#10,a2,#13#10,a3) end.
Результат выполнения программы: 22 33 444
2."Современный" вариант // PascalABC.NET 3.0, сборка 1076 begin var s:='22 33 444'; var m:=s.ToWords; var a1:=m[0]; var a2:=m[1]; var a3:=m[2]; Writeln(a1,#13#10,a2,#13#10,a3) end.
// 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