Question

Найти среднее арифметическое N-чисел, введенных с клавиатуры, кратных 3 и 5 одновременно. В паскале.

Answer 1

var

  n, i, sum, k : integer;

begin

  read (n);

  for i := 1 to n do

  begin

    read (k);

    if k mod 15 = 0 then sum := sum + k;

  end;

  writeln (sum / n);

end.

  

Answer 2

Для нахождения среднего арифметического N чисел, введенных с клавиатуры и кратных 3 и 5 одновременно, можно использовать следующий алгоритм на языке Pascal:

program AverageOfMultiples; var N, number, sum, count: integer; average: real; begin sum := 0; count := 0; write('Введите количество чисел N: '); readln(N); for i := 1 to N do begin write('Введите число: '); readln(number); if (number mod 3 = 0) and (number mod 5 = 0) then begin sum := sum + number; count := count + 1; end; end; if count > 0 then begin average := sum / count; writeln('Среднее арифметическое чисел, кратных 3 и 5: ', average:0:2); end else begin writeln('Нет чисел, кратных 3 и 5'); end; end.

Эта программа сначала запрашивает у пользователя количество чисел N. Затем она в цикле запрашивает N чисел и проверяет, кратны ли они одновременно 3 и 5. Если число удовлетворяет условию, оно добавляется к сумме и увеличивается счетчик. После ввода всех чисел программа вычисляет среднее арифметическое для этих чисел и выводит результат. Если не было введено ни одного числа, удовлетворяющего условию, программа выведет соответствующее сообщение.