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

Question

Информатика

Лика

6 февраля, 23:23

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

+4

Ответы (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.