ПОМОГИТЕ ПЛИЗЗЗ!!!!!! 20 БАЛЛОВ Дан числовой масси из 100 элементов. В диапазоне от -20...

Question

ПОМОГИТЕ ПЛИЗЗЗ!!!!!! 20 БАЛЛОВ

Дан числовой масси из 100 элементов. В диапазоне от -20 до +20. В какой половине среднняя температура была выше. Какие 2 рядом стоящиx числа наибольшие

Answer 1

// PascalABC.NET 3.3
// 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