Склавиатуры вводятся 10 чисел найти среднее арифметическое чисел и сумму положительных чисел

104

108

Посмотреть ответы 2

Ответы на вопрос:

davidgjggjj

Информатика

4,4(23 оценок)

Var a,sr,sp: real; i: integer; begin sr: =0; sp: =0; for i: = 1 to 10 do begin read(a); sr: =sr+a; if a> 0 then sp: =sp+a; end; writeln('среднее арифметическое: ',sr/10); writeln('сумма положительных: ',sp) end.