Question

Дан массив чисел А [20]. Найти среднее арифметическое НЕЧЁТНЫХ элементов. ПАСКАЛЬ.

Answer 1

Ответ:Const

 n=10;

Var

 a: Array[1..n] of Integer;

 i,k: Byte;

 s: Integer;

BEGIN

Writeln('Введите массив:');

For i:=1 to n do

begin

 Readln(a[i]);

 If odd(a[i]) Then

 begin

   s:=s+a[i];

   Inc(k);

 end;

end;

Writeln('Ср. арифм. нечетных = ',s/k:2:2);

Readln

END.

Объяснение:

Answer 2

Вот как можно написать программу на Pascal для вычисления среднего арифметического нечетных элементов массива A[20]:

pascalCopy code
program AverageOfOddElements;

var
  A: array[1..20] of Integer;
  i, sum, count: Integer;
  average: Real;

begin
  sum := 0;
  count := 0;

  writeln('Введите 20 чисел в массив A:');
  for i := 1 to 20 do
  begin
    write('A[', i, ']: ');
    readln(A[i]);
    
    // Проверяем, является ли элемент нечетным
    if A[i] mod 2 <> 0 then
    begin
      sum := sum + A[i];
      count := count + 1;
    end;
  end;

  // Проверяем, чтобы было хотя бы одно нечетное число, чтобы избежать деления на 0
  if count > 0 then
  begin
    average := sum / count;
    writeln('Среднее арифметическое нечетных элементов массива: ', average:0:2);
  end
  else
    writeln('В массиве нет нечетных чисел.');

  readln;
end.

Эта программа сначала запрашивает 20 чисел и сохраняет их в массиве A. Затем она вычисляет сумму нечетных элементов и их количество в массиве и находит среднее арифметическое нечетных элементов. Результат выводится на экран.