Question

Cho dãy số a1 a2.....aN, N là số nguyên dương xuất giá trị trung bình lớn hơn 5

Answer 1

uses crt;
var a:array[1..100]of integer;
i,n,t,dem:integer;
tbc:real;
begin
clrscr;
write('nhap do dai cua day:'); readln(n);
for i:=1 to n do
begin
write('a[',i,']='); readln(a[i]);
end;
{-----------xuat---------------}
for i:=1 to n do
write(a[i]:4);
{----------xu-ly---------------}
writeln;
t:=0;
dem:=0;
for i:=1 to n do
if a[i]>5 then
begin
dem:=dem+1;
t:=t+a[i];
end;
tbc:=t/dem;
writeln('trung binh cua cac so lon hon 5 la: ',tbc:4:2);
readln;
end.