Question

Составить программу для нахождения среднего значения чисел последовательности кратных 6. Всего в последовательности 12 натуральных чисел, значения которых вводятся с клавиатуры. P.S. Найти на языке Pascal​

Answer 1

Ответ:

program task;

const n = 12;

var

   a: array [1..n] of integer;

   res, min, i : integer;

   

begin

 res := 0;

 for i:=1 to 12 do

   readln (a[i]);

 for i:= 2 to 31 do

   if ( a[i] mod 6 = 0 ) then

       res := res + a[i];

   

 writeln('Sum: ');

 write(res);

end.

Объяснение:

Answer 2

Вот программа на языке Pascal, которая находит среднее значение чисел последовательности, кратных 6:

pascalCopy code
program AverageOfMultiplesOf6;
var
  i, count, sum, number: integer;
  average: real;
begin
  sum := 0;
  count := 0;

  writeln('Введите 12 натуральных чисел:');
  
  for i := 1 to 12 do
  begin
    write('Введите число ', i, ': ');
    readln(number);

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

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

  readln;
end.

Программа сначала инициализирует переменные sum (сумма чисел) и count (количество чисел), затем запрашивает у пользователя ввод 12 натуральных чисел. Для каждого введенного числа программа проверяет, является ли оно положительным и кратным 6. Если число соответствует этим условиям, оно добавляется к сумме, и счетчик увеличивается. По завершении ввода программа вычисляет среднее значение для этих чисел и выводит его. Если в последовательности не найдено чисел, удовлетворяющих условию, программа сообщает об этом.