Question

Viết chương trình và nhập 5 số nguyên bất kỳ.

a). Tính và in ra trung bình cộng của 5 số vừa nhập.

b). In ra các phần tử lớn hơn giá trị trung bình vừa tính.

Answer 1

Đề sai rồi bạn

Phải là nhập 5 số thực bất kỳ mới đúng

Answer 2

uses crt;
var a:array[1..5]of real;
t,tbc:real;
i:integer;
begin
clrscr;
for i:=1 to 5 do
begin
write('so thu ',i,'='); readln(a[i]);
end;
{----------------------------------cau-a---------------------------}
t:=0;
for i:=1 to 5 do
t:=t+a[i];
tbc:=t/5;
writeln('trung binh cong cua 5 so vua nhap la: ',tbc:4:2);
{----------------------------------cau-b---------------------------}
writeln('cac phan tu lon hon trung binh cong cua day so la: ');
for i:=1 to 5 do
if a[i]>tbc then write(a[i]:4:2,' ');
readln;
end.