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

Составить программу для Pascal ABC

Question

Информатика

Сергейка

2 августа, 15:31

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

Составить программу для Pascal ABC

+1

Ответы (1)

Знаете ответ на вопрос?

Вара · Answer 1

var

arr : array[1 ... 99] of integer;

N, s, k : integer;

begin

read (N) ;

for var i : = 1 to N do begin

arr[i] : = random (-10, 10) ;

writeln (arr[i]) ;

if arr[i] > 0 then begin

s + = arr[i];

k + = 1;

end

end;

writeln (s/k) ;

end.

В данном массиве чисел найдите среднее арифметическое положительных элементов массива.Составить программу для Pascal ABC

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

Составить программу для Pascal ABC