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

来源:学生作业帮助网 编辑:六六作业网 时间:2024/05/10 07:34:25
用pascal语言编程:输出n(n用pascal语言编程:输出n(n用pascal语言编程:输出n(nprogramnum;vartot:real;n,i:integer;nu:array[1..10

用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.