Question

Дан целочисленный массив из 30 элементов. Элементы массива могут принимать целые значения от –10000 до 10000 включительно. Опишите на одном из языков программирования алгоритм, позволяющий найти и вывести количество таких троек элементов массива, в которых средний элемент больше суммы двух крайних элементов тройки. В данной задаче под тройкой подразумевается три подряд идущих элемента массива. Например, для массива: 1 6 4 9 1 – ответ: 2. Исходные данные объявлены так, как показано ниже. Запрещается использовать переменные, не описанные ниже, но разрешается не использовать некоторые из описанных переменных. Паскаль: const N=30; var a: array [1.. N] of integer; i, j, k: integer; begin for i := 1 to N do Readln (a[i]); ... end. В качестве ответа Вам необходимо привести фрагмент программы, который должен находиться на месте многоточия.

Answer 1

Ответ (Паскаль):

k:=0;

for i := 1 to N do  

if (i>1) and (i<30) and (a[i]>a[i-1]+a[i+1]) then k:=k+1;

writeln(k);

end.

Answer 2

Конечно, вот фрагмент программы на языке Pascal, который выполняет поиск и подсчет троек элементов массива, удовлетворяющих заданному условию:

pascalCopy code
const
  N = 30;
  
var
  a: array [1..N] of integer;
  i, count: integer;
  
begin
  for i := 1 to N do
    Readln(a[i]);

  count := 0;

  for i := 1 to N - 2 do
  begin
    if (a[i + 1] > a[i] + a[i + 2]) then
      count := count + 1;
  end;

  Writeln('Number of triples: ', count);
end.

В этом фрагменте программы используется переменная count для подсчета количества троек, удовлетворяющих условию. Первый цикл for заполняет массив a значениями, а второй цикл for проходит по массиву, проверяя каждую тройку на соответствие условию. Если условие выполняется, то значение count увеличивается. Наконец, программа выводит количество подходящих троек.