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

Question

Информатика

Прекон

9 декабря, 01:56

Найти в одномерном массиве из 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.