Question

Помогите пожалуйста с Паскалем. Вводится 15 последовательных чисел,найти среднее арифметическое четнвх чисел,кратных трем из введенных Составьте полную программу

Answer 1

// PascalABC.NET 3.2, сборка 1356 от 04.12.2016
// Внимание! Если программа не работает, обновите версию!

begin
  var a:=ReadArrInteger('Введите 15 целых чисел',15);
  var s:=a.Where(x->x.IsEven and (x mod 3=0));
  if s.Count>0 then Writeln('S=',s.Average)
  else Writeln('Нет элементов, удовлетворяющих условию')
end.

Пример
Введите 15 целых чисел 2 -10 -47 -44 5 24 -6 30 1 -46 7 0 6 -2 44
S=10.8

Answer 2

Паскаль: Вычисление среднего арифметического четных чисел, кратных трем

Для решения данной задачи в Паскале, вам потребуется использовать цикл для ввода последовательности чисел и проверки каждого числа на соответствие условиям (четность и кратность трем). Затем, вычислить среднее арифметическое найденных чисел.

Вот полная программа на Паскале, которая решает данную задачу:

program AverageOfEvenMultiplesOfThree;

var
  i, count, sum, number: integer;
  average: real;

begin
  count := 0;
  sum := 0;

writeln('Введите 15 последовательных чисел:');

for i := 1 to 15 do
  begin
    write('Число ', i, ': ');
    readln(number);

if (number mod 2 = 0) and (number mod 3 = 0) then
    begin
      count := count + 1;
      sum := sum + number;
    end;
  end;

if count > 0 then
  begin
    average := sum / count;
    writeln('Среднее арифметическое четных чисел, кратных трем: ', average:0:2);
  end
  else
    writeln('Нет четных чисел, кратных трем.');

readln;
end.

В этой программе: - Мы используем переменные `count` для подсчета количества найденных чисел, удовлетворяющих условиям, и `sum` для суммирования этих чисел. - Цикл `for` выполняется 15 раз для ввода последовательности чисел. - Каждое число проверяется на четность (`number mod 2 = 0`) и кратность трем (`number mod 3 = 0`). - Если число удовлетворяет обоим условиям, оно добавляется к сумме (`sum := sum + number`) и увеличивается счетчик (`count := count + 1`). - После завершения цикла, мы проверяем значение `count`. Если оно больше нуля, то среднее арифметическое вычисляется как `average := sum / count` и выводится на экран. В противном случае выводится сообщение о том, что нет чисел, удовлетворяющих условиям.

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

Надеюсь, это поможет! Если у вас возникнут еще вопросы, не стесняйтесь задавать.