Question

Giúp mình với may mình thi rồi, mình xin thật lòng cảm tạ.

Viết chương trình nhập từ bàn phím một dãy số 14 phần tử để lưu điểm các nôn học của một học sinh. Thực hiện các thao tác sau:

1) nhập điểm cho học sinh, in ra màn hình các điểm số vừa nhập?

2) xuất ra màn hình có bao nhiêu điểm bé hơn 5 và có bao nhiêu điểm 10?

3) Xuất ra màn hình điểm trung bình của học sinh?

4) Xuất ra màn hình thông báo biết xếp loại của học sinh dựa điểm trung bình?

Answer 1

prograam bi1;

var a:array[1..100] of longint;

i:,sngint;tbc:real;ten:string

begin

write('Nhap ten ');readln(ten);

s:=0;

for i:=1 to n do

begin

write('Nhap diem thu ',i,'= ');

readln(a[i]);

s:=s+a[i];

end;

write('Nhung con diem <5 la ');

for i:=1 to n do

if a[i]<5 then write(a[i],' ');

wrtieln ;

write('NHung con diem 10 la ');

for i:=1 to n do

if a[i]<10then write(a[i],' ');

tbc:=s/n;

if tbc>=8 then write('Ban duoc hsg')

else if tbc>=6.5 then write('Ban dat danh hieu hoc sinh tien tien')

else if tbc>=5 then wrtie('Ban dat danh hieu trung binh ')

else write('Ban dat danh hieu yeu');

readln

end.