Найти в одномерном массиве из 10 элементов среднее арифметическое всех ненулевых чисел. Паскаль.

Question

Информатика

Полиевкт

4 мая, 03:13

Найти в одномерном массиве из 10 элементов среднее арифметическое всех ненулевых чисел. Паскаль.

+1

Ответы (1)

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

Охромей · Answer 1

Var a: array[1 ... 10] of Integer;

i, n, x: Integer;

begin

for i:=1 to 10 do readln (a[i]) ;

for i:=1 to 10 do begin

if a[i]0 then

begin

inc (x, a[i]) ;

inc (n) ;

end;

end;

writeln (x/n) ;

end.