Question

Скласти програму обчислення середнього арифметичного додатних чисел масиву c, який складається з 8 цілих чисел.​

Answer 1

Відповідь:

program Pr1;

var

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

 i,k,n,s: integer;

 sr: real;

begin

 Randomize;

 k := 0;

 s := 0;

 for i := 1 to 10 do

 begin{формирование массива}

   a[i] := random(41) - 20;

   write(a[i]:5);

   if a[i] > 0 then

   begin

     S := S + A[i];

     n := n + 1;

   end;  

   if abs(a[i]) mod 10 = 7 then

     k := k + 1;

 end;

 writeln;

 WRITELN('Количество элементов на 8: ', k);  

 if n<>0 then

   begin

     SR := S / N;

     WRITELN('Среднее: ', SR);

   end

 else

   writeln('Нет отрицательных чисел.');

end.

Пояснення:

Здається так, давно не писав нічого на цій мові

Answer 2

Програма для обчислення середнього арифметичного додатних чисел масиву

Для обчислення середнього арифметичного додатних чисел у масиві з 8 цілих чисел, можна скласти програму на мові програмування, наприклад, Python. Ось приклад програми:

# Заданий масив
c = [5, 8, -3, 10, 0, 7, -2, 4]

# Ініціалізація змінних для обчислення середнього арифметичного та кількості додатних чисел
sum_positive = 0
count_positive = 0

# Обчислення середнього арифметичного та кількості додатних чисел
for num in c:
    if num > 0:
        sum_positive += num
        count_positive += 1

# Перевірка, чи є додатні числа у масиві
if count_positive > 0:
    average_positive = sum_positive / count_positive
    print("Середнє арифметичне додатних чисел у масиві c:", average_positive)
else:
    print("У масиві c немає додатних чисел")

Ця програма обчислює середнє арифметичне додатних чисел у заданому масиві `c`. Вона проходить усі елементи масиву, обчислює суму додатних чисел та їх кількість, а потім обчислює середнє арифметичне, якщо є додатні числа у масиві. Якщо додатні числа відсутні, програма повідомляє про це.

Зверніть увагу, що в даному прикладі масив `c` містить числа `[5, 8, -3, 10, 0, 7, -2, 4]`. Програма обчислить середнє арифметичне лише для додатних чисел у цьому масиві.