20 дан числовой масси из 100 элементов. в диапазоне от -20 до +20. в какой половине среднняя температура была выше. какие 2 рядом стоящиx числа наибольшие
begin var a:=ArrRandom(100,-20,20); a.Println; if a[:50].Average>a[50:].Average then Println('Температура выше в первой половине') else Println('Температура выше во второй половине'); var max:=a.Min; for var i:=0 to 98 do if (a[i]>max) and (a[i+1]=a[i]) then max:=a[i]; Println(max,max); end.
// Cборка 1590 от 03.12.2017
begin
var a:=ArrRandom(100,-20,20); a.Println;
if a[:50].Average>a[50:].Average
then Println('Температура выше в первой половине')
else Println('Температура выше во второй половине');
var max:=a.Min;
for var i:=0 to 98 do
if (a[i]>max) and (a[i+1]=a[i]) then max:=a[i];
Println(max,max);
end.
Пример:
-17 14 7 16 13 -19 13 -12 -16 -3 6 19 -10 -18 -2 -9 -8 -17 7 14 3 3 -12 -17 0 6 -11 7 9 17 -20 -15 4 -11 -13 19 -12 5 4 16 -18 -1 -5 -18 -9 -9 10 -14 11 10 -18 18 8 19 5 1 6 3 -5 -14 13 -15 0 -12 -4 1 -6 -19 15 -1 -18 8 0 11 12 -16 -13 -15 13 -12 17 -18 17 19 14 -17 -3 6 4 7 -7 5 -11 -2 -17 18 20 -13 6 10
Температура выше во второй половине
3 3