Question

Язык - Pascal. даны натуральное число n и последовательностьa1, ...., an. Составьте программу,которая находит среднее арифметическое тех элементов последовательности, которые кратны 3 и не кратны 9

Answer 1

Var
 n, i, s, a, k: integer;
begin
readln(n);
s := 0;
k := 0;
for i := 1 to n do
begin
read(a);
if (a mod 3 = 0) and (a mod 9 <> 0) then
begin
inc(k);
inc(s, a);
end;
end;
write(s div k);
end.

Answer 2

Задача: Нахождение среднего арифметического элементов последовательности, кратных 3 и не кратных 9

Для решения данной задачи на языке Pascal, вам потребуется выполнить следующие шаги:

1. Объявить переменные: - `n` - натуральное число, обозначающее количество элементов в последовательности. - `a` - массив, содержащий элементы последовательности. - `sum` - переменная для хранения суммы элементов, кратных 3 и не кратных 9. - `count` - переменная для подсчета количества элементов, кратных 3 и не кратных 9. - `average` - переменная для хранения среднего арифметического.

2. Ввести значение `n` с клавиатуры и инициализировать массив `a` с помощью ввода элементов с клавиатуры.

3. Выполнить следующие действия для каждого элемента `x` в массиве `a`: - Проверить, является ли `x` кратным 3 и не кратным 9. - Если условие выполняется, добавить `x` к переменной `sum` и увеличить `count` на 1.

4. Вычислить среднее арифметическое элементов, кратных 3 и не кратных 9, используя формулу: ``` average = sum / count ```

5. Вывести результат на экран.

Ниже приведен пример кода на языке Pascal, решающий данную задачу:

program AverageOfSequence;

var
  n, x, sum, count: integer;
  average: real;
  a: array[1..100] of integer;

begin
  sum := 0;
  count := 0;

write('Введите количество элементов в последовательности: ');
  readln(n);

writeln('Введите элементы последовательности:');
  for x := 1 to n do
  begin
    readln(a[x]);
    if (a[x] mod 3 = 0) and (a[x] mod 9 <> 0) then
    begin
      sum := sum + a[x];
      count := count + 1;
    end;
  end;

if count > 0 then
  begin
    average := sum / count;
    writeln('Среднее арифметическое элементов, кратных 3 и не кратных 9: ', average:0:2);
  end
  else
    writeln('В последовательности нет элементов, удовлетворяющих условию.');

readln;
end.

После запуска программы, она запросит у вас ввести количество элементов в последовательности и сами элементы. Затем программа найдет среднее арифметическое элементов, кратных 3 и не кратных 9, и выведет результат на экран.

Примечание: Предоставленный код является примером и может быть изменен или оптимизирован в зависимости от ваших потребностей и предпочтений.