Question

viết chương trình nhập vào 5 số tự nhiên. In ra các số có giá trị lớn hơn trung bình cộng của 5 số đó.

Answer 1

uses crt;
var a:array[1..5]of integer;
i,t:integer;
tb:real;
begin
clrscr;
for i:=1 to 5 do
begin
write('so thu ',i,'='); readln(a[i]);
end;
t:=0;
for i:=1 to 5 do
t:=t+a[i];
tb:=t/5;
for i:=1 to 5 do
if a[i]>tb then write(a[i]:4);
readln;
end.