Question

На паскале. Найдите среднее арифметическое элементов одномерного массива, состоящего из 10 чисел, которые превышают по велечине число d. Число d и остальные элементы массива вводятся с клавиатуры

Answer 1

Ответ:

var i,k,s,d:integer;

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

begin

 writeln('введите массив');

 for i:=1 to 10 do

   readln(a[i]);

 write('d= ');

 readln(d);

 for i:=1 to 10 do

 if a[i]>d then

 begin

   k:=k+1;

   s:=s+a[i];

 end;

 writeln(s/k);

end.

Объяснение:

Answer 2

Для решения этой задачи на Pascal, вы можете следовать следующему алгоритму:

1. Объявите переменную для числа d и одномерный массив для хранения 10 чисел.
2. Считайте число d с клавиатуры.
3. Заполните массив, считывая 10 чисел также с клавиатуры.
4. Создайте переменные для суммы элементов и количества элементов, которые больше d.
5. Пройдитесь по массиву, суммируя только те элементы, которые больше d, и увеличивая счетчик элементов.
6. Вычислите среднее арифметическое, разделив сумму на количество элементов.
7. Выведите результат на экран.

Пример кода на Pascal:

pascalCopy code
program AverageGreaterThanD;
var
  d: Integer;
  arr: array[1..10] of Integer;
  sum, count, i: Integer;
  average: Real;
begin
  writeln('Введите число D:');
  readln(d);

  writeln('Введите 10 чисел для массива:');
  for i := 1 to 10 do
  begin
    readln(arr[i]);
  end;

  sum := 0;
  count := 0;

  for i := 1 to 10 do
  begin
    if arr[i] > d then
    begin
      sum := sum + arr[i];
      count := count + 1;
    end;
  end;

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

Этот код сначала считывает число d и элементы массива с клавиатуры, затем находит сумму и количество элементов, которые больше d, и, наконец, вычисляет и выводит среднее арифметическое.