Задание 8 Вариант 1 Самостоятельная работа 4 ГДЗ Рабочая тетрадь Босова 11 класс (Информатика)

Ниже вариант решения задания из учебника Босова, Босова, Аквилянов 11 класс, Бином:

8. Напишите программу вычисления среднего арифметического положительных элементов массива. Проверьте работу программы на заданном массиве А = {7, 25, 4.5, 0, 17, 61, -10, 0, 1, -4, 22}.

Среднее арифметическое положительных элементов равно.

program s4_v1_8;

var

a: array[0..10] of real;

i, k: integer;

s,sr: real;

begin

s := 0; k := 0;

writeln(taskввод массиваtask);

for i := 0 to 10 do

begin

read(a[i]);

if a[i] > 0 then

begin

s := s + a[i];

k := k + 1

end;

end;

sr:=s/k;

writeln(taskсреднее арифметическое положительных =task, sr:6:2);

end.

Среднее арифметическое положительных элементов равно: 19.64