Viết chương trình nhập điểm môn tin với độ dài của mảng nhập từ bàn phím. In ra nhưng điểm lớn hơn 5

Trọng Nguyễn Hỏi từ APP VIETJACK

đã hỏi trong Lớp 8 Tin học

· 21:52 08/04/2022

Lưu câu hỏi Lưu

Hỏi chi tiết

Quảng cáo

4 năm trước

uses crt;

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

i，n: integer;

begin

clrscr;

write (‘nhap so luong HS: ‘); readln (n);

for i:=1 to n do

begin

write (‘nhap diem trung binh HS thu ‘，i，’: ‘); readln (a[i]);

if a[i]>=8 then writeln (‘loai gioi’)

else if (a[i]<8) and (a[i]>=6.5) then writeln (‘loai kha’)

else if (a[i]<6.5) and (a[i]>=5.0) then writeln (‘loai trung binh’)

else writeln (‘loai yeu’);

writeln;

end;

readln;

end.

3 bình luận

S̐ A̐ D̐ ✿ B̐ O̐ Y̐ ︵²ᵏ 22 · 4 năm trước

ngu

...Xem tất cả bình luận

Đăng nhập để hỏi chi tiết

Quảng cáo

Bạn hỏi - Chuyên gia trả lời

Bạn cần hỏi gì?