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.
>>> import string
>>> string.ascii_letters
''
>>> import random
>>> random.choice(string.ascii_letters)
'j'
Объяснение:
- string.ascii_letters возвращает строку, содержащую строчные и прописные буквы в соответствии с текущей локалью.
- random.choice возвращает один случайный элемент из последовательности.