Question

ПОМОГИТЕ ПОЖАЛУЙСТА (ПАСКАЛЬ) Даны натуральное число n и целые числа x1, x2,....,Xn. Cоставьте программу (без использования массива), которая находит среднее арифметическое тех из них, которые кратны 4.

Answer 1

Var
  n, x, i : integer;
  s : double;
begin
  writeln('Количество чисел');
  readln(n);
  s := 0;
  for i := 1 to n do 
    begin
      writeln(i,' число');
      readln(x);
      if x mod 4 = 0 then
        s := s + x;
    end;
s := s  / n;
writeln('Ответ: ',s);
end;

Answer 2

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

program AverageMultipleOfFour;

var
  n, x, sum, count: integer;
  average: real;

begin
  sum := 0;
  count := 0;

write('Введите количество чисел: ');
  readln(n);

for i := 1 to n do
  begin
    write('Введите число ', i, ': ');
    readln(x);

if (x mod 4 = 0) then
    begin
      sum := sum + x;
      count := count + 1;
    end;
  end;

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

readln;
end.

Программа запрашивает у пользователя количество чисел `n` и затем последовательно запрашивает `n` чисел. Если число кратно 4, то оно добавляется к сумме `sum` и увеличивает счетчик `count`. После окончания ввода чисел, программа проверяет, были ли введены числа, кратные 4. Если да, то вычисляет среднее арифметическое и выводит его на экран. Если нет, то выводит сообщение о том, что нет чисел, кратных 4.

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

Источники: -