Question

ПАСКАЛЬ!!!!!!!!!!!!!!!!!!СРОЧНО!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!ПОМОГИТЕ ПОЖАЛУЙСТА!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! Вычислить среднее арифметическое элементов числовой последовательности, в записи значения которых не содержится цифра 5. Если таких элементов не существует, то вывести 'NO'.

Answer 1

Какой массив???

??????????

Answer 2

Конечно, я помогу! Чтобы решить эту задачу, вам понадобится написать программу на языке программирования Паскаль. Вот пример кода, который решает данную задачу:

pascalCopy code
program CalculateAverage;
var
  n, count, sum, num: integer;
  hasDigit5: boolean;
begin
  writeln('Введите количество элементов последовательности:');
  readln(n);

  count := 0;
  sum := 0;

  writeln('Введите элементы последовательности:');
  for var i := 1 to n do
  begin
    readln(num);
    
    // Проверяем, содержит ли число цифру 5
    hasDigit5 := False;
    var temp := num;
    while temp > 0 do
    begin
      if temp mod 10 = 5 then
      begin
        hasDigit5 := True;
        break;
      end;
      temp := temp div 10;
    end;

    // Если число не содержит цифру 5, добавляем его к сумме
    if not hasDigit5 then
    begin
      sum := sum + num;
      count := count + 1;
    end;
  end;

  // Если не было элементов без цифры 5, выводим 'NO'
  if count = 0 then
    writeln('NO')
  else
    writeln('Среднее арифметическое: ', sum / count:0:2);
end.

Программа запрашивает количество элементов в последовательности, затем вводит элементы и проверяет, содержит ли каждый элемент цифру 5. Если не содержит, то он добавляется к сумме, и в конце выводится среднее арифметическое только тех элементов, которые не содержат цифру 5. Если таких элементов нет, программа выведет 'NO'.