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

Пожалуйста помогите!! с клавиатуры вводятся 10 чисел найти среднее арифметическое чисел и сумму положительных чисел
Гость
Ответ(ы) на вопрос:
Гость
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.
Не нашли ответ?
Ответить на вопрос
Похожие вопросы