вычислить среднее арифметическое положительных элементов массива
Answers & Comments
ILALIG
var a:array[1..10] of integer; i,k,s:integer; begin s:=0; k:=0; for i:=1 to 10 do readln(a[i]); for i:=1 to 10 do if a[i]>0 then begin s:=s+a[i]; k:=k+1; end; writeln(s/k); end.
Answers & Comments
i,k,s:integer;
begin
s:=0;
k:=0;
for i:=1 to 10 do
readln(a[i]);
for i:=1 to 10 do
if a[i]>0 then begin
s:=s+a[i];
k:=k+1;
end;
writeln(s/k);
end.