Даны натуральное число n, целые числа a1,a2,a3.,an. найти количество и суммы тех членов данной последовательности,...

Конечно, я помогу вам с этой задачей. Программа на языке Паскаль, которая находит количество и сумму чисел в заданной последовательности, удовлетворяющих условию делимости на 5 и неделимости на 7, может выглядеть следующим образом:

program DivisibleBy5NotBy7;

var
  n, i, count, sum: Integer;
  a: array of Integer;

begin
  // Ввод количества элементов в последовательности
  Write('Введите количество элементов в последовательности: ');
  ReadLn(n);
  
  // Инициализация массива
  SetLength(a, n);
  
  // Ввод элементов последовательности
  for i := 0 to n - 1 do
  begin
    Write('Введите элемент a[', i + 1, ']: ');
    ReadLn(a[i]);
  end;
  
  // Инициализация счетчика и суммы
  count := 0;
  sum := 0;
  
  // Обход последовательности и проверка условий
  for i := 0 to n - 1 do
  begin
    if (a[i] mod 5 = 0) and (a[i] mod 7  0) then
    begin
      // Если число удовлетворяет условиям, увеличиваем счетчик и добавляем к сумме
      Inc(count);
      sum := sum + a[i];
    end;
  end;
  
  // Вывод результатов
  WriteLn('Количество чисел, делящихся на 5 и не делящихся на 7: ', count);
  WriteLn('Сумма этих чисел: ', sum);
end.

Объяснение программы:

1. Ввод данных:

   • Сначала мы запрашиваем у пользователя количество элементов в последовательности и сохраняем его в переменной n.
   • Затем создаем динамический массив a для хранения элементов последовательности. Пользователь вводит каждый элемент, который сохраняется в массив.

2. Инициализация:

   • Переменные count и sum инициализируются нулем. count будет хранить количество чисел, удовлетворяющих условиям, а sum — их сумму.

3. Обработка элементов последовательности:

   • Используем цикл для перебора всех элементов массива. Для каждого элемента проверяем, делится ли он на 5 и не делится ли он на 7.
   • Если оба условия выполняются, увеличиваем count на 1 и добавляем текущее число к sum.

4. Вывод результатов:

   • В конце программы выводим количество чисел и их сумму.

Этот алгоритм эффективно решает поставленную задачу, проверяя каждое число в последовательности и выполняя необходимые операции.

Программа на языке Pascal:

program DivisibleByFiveNotBySeven;

var
  n, i, count, sum: integer;
  a: array[1.100] of integer;

begin
  write('Введите количество чисел в последовательности: ');
  readln(n);
  
  write('Введите числа последовательности: ');
  for i := 1 to n do
    read(a[i]);
  
  count := 0;
  sum := 0;
  
  for i := 1 to n do
  begin
    if (a[i] mod 5 = 0) and (a[i] mod 7  0) then
    begin
      count := count + 1;
      sum := sum + a[i];
    end;
  end;
  
  writeln('Количество чисел, делящихся на 5 и не делящихся на 7: ', count);
  writeln('Сумма таких чисел: ', sum);
  
end.

Эта программа запрашивает у пользователя количество чисел в последовательности и сами числа, затем находит количество и сумму чисел, которые делятся на 5 и не делятся на 7.