YOMEDIA
NONE

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 in ra màn hình các điểm số vừa nhập và 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?

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?

Theo dõi Vi phạm
ATNETWORK

Trả lời (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.

      bởi Trương Ngọc Lập 07/11/2018
    Like (0) Báo cáo sai phạm

Nếu bạn hỏi, bạn chỉ thu về một câu trả lời.
Nhưng khi bạn suy nghĩ trả lời, bạn sẽ thu về gấp bội!

Lưu ý: Các trường hợp cố tình spam câu trả lời hoặc bị báo xấu trên 5 lần sẽ bị khóa tài khoản

Gửi câu trả lời Hủy
 
NONE

Các câu hỏi mới

AANETWORK
 

 

YOMEDIA
ATNETWORK
ON