Написать программу, которая формирует одномерный массив (массив температур), вычисляет среднее арифметическое положительных элементов массива M[1 ... 30]

Question

Информатика

Любаня

29 января, 17:22

Написать программу, которая формирует одномерный массив (массив температур), вычисляет среднее арифметическое положительных элементов массива M[1 ... 30]

+5

Ответы (1)

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

Доброслава · Answer 1

Var a:array[1 ... 30] of integer;

i, sr, k:integer;

begin

for i:=1 to 30 do begin

read (a[i]) ;

if a[i]>0 then begin sr+=a[i]; inc (k) ; end;

end;

writeln (sr/k:3:2) ;

end.