Найти все пары последовательных чисел массива, сумма которых больше 50.паскаль

Question

Найти все пары последовательных чисел массива, сумма которых больше 50.паскаль

Answer 1

// PascalABC.NET 3.2, сборка 1387 от 20.02.2017
// Внимание! Если программа не работает, обновите версию!

begin
  var a:=ArrRandom(ReadInteger('n='),-99,99); a.Println;
  a.Pairwise.Where(x->x[0]+x[1]>50).Println;
end.

Пример
n= 15
-59 52 29 -81 -80 52 69 -43 30 74 -24 -15 50 47 0
(52,29) (52,69) (30,74) (50,47)

Answer 2

Const n=10;
var a:array[1..n] of integer;
i:integer; 
begin
Randomize;
for i:=1 to n do begin
 a[i]:=random(51);
 write(a[i]:3);
 end;
writeln;
writeln('Пары соседних элементов с суммой > 50:');
for i:=2 to n do 
 if a[i-1]+a[i]>50 then writeln(a[i-1]:3,'  ',a[i]);
end.

Пример:
 12 34 23  1 12  3  1 42 30 36
Пары соседних элементов с суммой > 50:
 34  23
 42  30
 30  36