Letter.txt,письмо.doc,роза.bmp,crop12.exe
// Pascal ABC.Net версия 3.2 сборка 1387
begin
writeln('исходный массив:');
var a:=ArrRandom(100,-1000,1000).Println();
writeln('1 50 по возр:');
a.Reverse().Skip(50).Sorted().Println();
writeln('2 50 по убыв:');
a.Skip(50).SortedDescending().Println();
end.
--------------------------------------Вроде так--------------------------------------
<em /><em /><em>VAR</em>
<em> a, b: LongInt;</em>
<em>BEGIN</em>
<em> Read(a, b);</em>
<em />
<em> If (a > b) then Write(a, ' > ', b)</em>
<em> Else If (b > a) then Write(b, ' > ', a)</em>
<em> Else Write(a, ' = ',b);</em><em> </em>
<em>END.</em>
1-(10+10+6+5+11)+5+10+17+20+18+10+3=-42+83=41(градус цельсия). 2)41:12=3,416(Градусов цельсия) округляем до 3,4 градусов цельсия( ответ)