用pascal语言编程:输出n(n

来源:学生作业帮助网 编辑:作业帮 时间:2024/11/19 04:29:26
用pascal语言编程:输出n(n
xn0E占TVB Z"֋I-[: XTj u}>9Qi(vرͩk߻=LH*MɒޯpdZ8D,PDcF^(dԖ]0s-X/GN! @Kw&#\̵s8!:e|liKIM3Gx!y^w

用pascal语言编程:输出n(n
用pascal语言编程:输出n(n

用pascal语言编程:输出n(n
program num;
var tot:real;
n,i:integer;
nu:array[1..10] of integer;
begin
read(n); tot:=0;
for i:=1 to n do
begin
read(nu[i]);
tot:=tot+nu[i];
end;
tot:=tot/n;
for i:=1 to n do
if nu[i]>tot then writeln(nu[i]);
end.