Question

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

Answer 1

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