Question

HELPP!! определите среднее арифметическое чётных элементов массива A[1..10] Написать программу в Паскаль

Answer 1

//Будем считать, что четные по значению

const

 n = 10;

var

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

 i, Sum, Count: integer;

begin

 Sum := 0;

 Count := 0;

 Randomize;

 for i := 1 to n do

 begin

   a[i] := Random(10);

   Write(a[i], ' ');

   if a[i] mod 2 = 0 then

   begin

     Sum := Sum + a[i];

     Count := Count + 1

   end

 end;

 

 Writeln;

 Write('Среднее арифметическое ' +  

       'четных чисел: ', Sum / Count)

end.

Answer 2

Здесь с четными, а там просто арефмитическое...

Var

m:array [1..100000] of integer;

k,i:integer;

Begin

k:=0;

randomize;

For i:=1 to 10 do

read(m[i]);

For i:=1 to 10 do begin

If m[i] mod 2=0 then

k:=k+m[i] else k:=k+0;end;

k:=k div 10;

writeln(k);

end.

Answer 3

Конечно, вот программа на Pascal, которая вычисляет среднее арифметическое четных элементов массива A[1..10]:

pascalCopy code
program AverageOfEvenElements;

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

begin
  sum := 0;
  count := 0;
  
  writeln('Введите элементы массива A[1..10]:');
  
  for i := 1 to 10 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;
  
  if count = 0 then
    writeln('В массиве нет четных элементов')
  else
  begin
    average := sum / count;
    writeln('Среднее арифметическое четных элементов массива A[1..10]: ', average:0:2);
  end;
  
  readln;
end.

Программа сначала запрашивает ввод элементов массива A[1..10], затем проверяет каждый элемент на четность и вычисляет сумму четных элементов и их количество. Затем программа вычисляет среднее арифметическое четных элементов (если они есть) и выводит результат на экран.