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

来源:学生作业帮助网 编辑:作业帮 时间:2024/04/28 19:22:31
用pascal语言编程:输出n(n

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