Question

Паскаль Для массива из 10 элементов найти среднее арифметическое тех элементов значение которых меньше 15

Answer 1

Program n_1;
var a: array[1..10] of real;
s: real;
i, k: integer;
begin
for i:=1 to 10 do
readln(a[i]);

for i:=1 to 10 do begin
if a[i]<15 then begin
s:=s+a[i];
k:=k+1;
end;
end;

s:=s/k;
writeln(s);
end.

Answer 2

Var a:array [1..10] of integer;
i,k,s:integer;
begin
for i:=1 to 10 do
read(a[i]); //ввод значений массива с клавиатуры
writeln;
for i:=1 to 10 do
if a[i]<15 then
begin
k:=k+1;
s:=s+a[i];
end;
writeln(s/k:0:2) //вывод ср.арифм. с округлением до 2 знаков после запятой
end.

Answer 3

Для нахождения среднего арифметического элементов массива, значение которых меньше 15, вам потребуется использовать цикл для обхода всех элементов массива и подсчета суммы таких элементов. Затем, найденную сумму нужно разделить на количество элементов, удовлетворяющих условию.

Вот пример кода на языке Паскаль, который решает данную задачу:

program AverageLessThan15;
const
  n = 10; // количество элементов в массиве
var
  arr: array[1..n] of Integer; // объявление массива
  i, count, sum: Integer; // переменные для цикла, подсчета и суммы
  average: Real; // переменная для хранения среднего арифметического
begin
  // заполнение массива случайными значениями
  Randomize;
  for i := 1 to n do
    arr[i] := Random(20); // генерация случайного числа от 0 до 19

// подсчет суммы и количества элементов, значение которых меньше 15
  sum := 0;
  count := 0;
  for i := 1 to n do
  begin
    if arr[i] < 15 then
    begin
      sum := sum + arr[i];
      count := count + 1;
    end;
  end;

// вычисление среднего арифметического
  average := sum / count;

// вывод результата
  writeln('Среднее арифметическое элементов, значение которых меньше 15: ', average:0:2);
end.

В этом примере мы объявляем массив `arr` из 10 элементов и заполняем его случайными значениями от 0 до 19. Затем мы используем цикл `for` для подсчета суммы и количества элементов, значение которых меньше 15. После этого мы вычисляем среднее арифметическое, разделив сумму на количество элементов. Наконец, мы выводим полученный результат.

Примечание: В приведенном коде используется генератор случайных чисел для заполнения массива случайными значениями. Если вам нужно ввести значения вручную, вы можете изменить код соответствующим образом.

Надеюсь, это поможет! Если у вас возникнут еще вопросы, не стесняйтесь задавать.