Question

Дан целочисленный массив из 30-ти элементов.Написать программу,которая позволит найти среднее арифметическое  положительных элементов массива .

Answer 1

Паскаль:

var mas : array[1..30] of longint;
n,i : longint;
r : real;
begin
 for i:=1 to 30 do read (mas[i]);
 n:=30; r:=0;
 for i:=1 to 30 do begin
  if mas[i]<1 then begin mas[i]:=0; n:=n-1;
  r:=r+mas[i];
 end;
 writeln(r/n);
end.

Answer 2

Конечно, вот пример программы на языке Python, которая позволит найти среднее арифметическое положительных элементов целочисленного массива из 30 элементов:

pythonCopy code
array = [1, -2, 3, -4, 5, -6, 7, -8, 9, -10, 11, -12, 13, -14, 15, -16, 17, -18, 19, -20, 21, -22, 23, -24, 25, -26, 27, -28, 29, -30]

positive_elements = [num for num in array if num > 0]  # Фильтруем положительные элементы массива

if len(positive_elements) > 0:
    average = sum(positive_elements) / len(positive_elements)  # Находим среднее арифметическое положительных элементов
    print("Среднее арифметическое положительных элементов:", average)
else:
    print("В массиве нет положительных элементов.")

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

Затем мы используем генератор списка для создания нового списка positive_elements, который содержит только положительные элементы из исходного массива.

Затем мы проверяем, есть ли положительные элементы в новом списке. Если количество положительных элементов больше нуля, мы вычисляем среднее арифметическое, используя функции sum() и len() для получения суммы и количества положительных элементов соответственно. В противном случае, если положительных элементов нет, выводится сообщение об этом.