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

Answer 2

// 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 3

Конечно, давайте напишем программу на Pascal, которая находит все пары последовательных чисел в массиве, сумма которых больше 50. Для этого мы будем использовать два вложенных цикла, чтобы перебрать все возможные пары элементов массива. Если сумма пары чисел больше 50, мы выведем эту пару. Вот пример кода на Pascal:

program FindPairs;

const
  N = 10; // Задайте размер массива

var
  arr: array[1..N] of Integer; // Массив чисел
  i, j: Integer;

begin
  // Заполнение массива случайными числами (для примера)
  Randomize;
  for i := 1 to N do
    arr[i] := Random(30); // Максимальное значение ограничено 30 для простоты

// Вывод исходного массива
  writeln('Исходный массив:');
  for i := 1 to N do
    write(arr[i], ' ');
  writeln;

// Поиск пар суммы больше 50
  writeln('Пары последовательных чисел с суммой больше 50:');
  for i := 1 to N - 1 do
  begin
    for j := i + 1 to N do
    begin
      if arr[i] + arr[j] > 50 then
        writeln('(', arr[i], ', ', arr[j], ')');
    end;
  end;

end.

Программа создает массив случайных чисел и выводит его. Затем она ищет все пары последовательных чисел с суммой больше 50 и выводит их. Обратите внимание, что размер массива и максимальное значение элементов массива (30 в данном примере) могут быть изменены в зависимости от ваших конкретных требований.