Просмотр задания
Найдите среднее арифметическое элементов массива, состоящего из 10 чисел, которые не превышают по величине число X. Элементы массива вводятся с клавиатуры. Сделайте пожалуйста на паскале.
Гость
19 декабря 2015
Ответы (1)
Информатик БУ # 19 декабря 2015 в 12:51 0
Чтобы найти среднее арифметическое определенных элементов, мы должны найти сумму этих элементов, их количество, а затем разделить сумму на количество.
Код PASCAL:
  1. var
  2. a: array[1..10] of integer;
  3. i, s, k, x: integer;
  4. r: real;
  5. begin
  6. //считываем массив
  7. for i:=1 to 10 do
  8. readln(a[i]);
  9. //обнуляем переменные s и k
  10. s:=0; k:=0;
  11. //считываем значение X
  12. readln(x);
  13. //находим сумму и количество
  14. for i:=1 to 10 do
  15. //если элемент больше x
  16. //то к s прибавляем элемент, а к k - единицу
  17. if a[i] <= x then
  18. begin
  19. s:=s+a[i];
  20. k:=k+1;
  21. end;
  22. //находим среднее арифметическое
  23. r:=s/k;
  24. writeln(r);
  25. end.
Перевести число из в Результат: 510 = 1012