Пожалуйста помогите!! с клавиатуры вводятся 10 чисел найти среднее арифметическое чисел и сумму положительных чисел
Ответы
Ответ дал:
0
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.
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.
Вас заинтересует
1 год назад
1 год назад
6 лет назад
6 лет назад