Em hãy viết chuơng trình Pascal nhập điểm trung bình của các bạn trong lớp và thông báo điểm trung bình của những bạn lớn hơn hoặc bằng 5 Giúp mik vs mn mai mik còn ktra nx
viết chương trình nhập vào điểm trung bình của n học sinh trong lớp. đếm có bao nhiêu bạn đạt loại giỏi ( điểm trung bình lớn hơn hoặc bằng 8 )( loại khá điểm trung bình lớn hơn 7 và bé hơn 8, loại trung bình lớn hơn hoặc bằng 5 và bé hơn 7
Viết chương trình nhập điểm trung bình của n học sinh trong lớp đếm có bao nhiêu bạn ,loại giỏi điểm Trung bình lớn hơn hoặc bằng 8 , loại khá điểm trung bình lớn hơn hoặc bằng 7 bé hơn 8 ,loại trung bình lớn hơn hoặc bằng 5 bé hơn 7
Điểm trung bình cả năm của mỗi học sinh trong lớp là một số thực em hãy viết chương trình để nhập vào danh sách điểm trung bình cả năm của các bạn trong lớp sau đó thông báo kết quả có bao nhiêu bạn xếp loại chưa đạt ( biết rằng nếu điểm trung bình cả năm nhỏ hơn 5 thì xếp loại chưa đạt)
n = int(input("Nhập số lượng học sinh trong lớp: "))
dtb = [ ]
for i in range(n):
diem = float(input(f"Nhập điểm trung bình của học sinh thứ {i+1}: "))
dtb.append(diem)
count = 0
for diem in dtb:
if diem < 5:
count += 1
print(f"Số lượng học sinh xếp loại chưa đạt là: {count}")
Câu2: viết chương trình thực hiện yêu cầu sau . a, Sử dụng biến mảng để nhập từ bàn phím điểm trung bình (ĐTB) của 50 bạn học sinh trong lớp. b,In rs màn hình (ĐTB) của học sinh . c,In ra màn hình số lớn nhất trong dãy số . Mn giúp mik vs mik cần gấp.mik c.ơn
Var a:array:[1..50] of real;
i,max:integer;
Begin
For i:=1 to 50 do
Begin
Write('Nhap so thu ',i,' = ');readln(a[i]);
End;
Write('Cac diem vua nhap la: ');
For i:=1 to 50 do
Write(a[i]:10:2);
Writeln;
max:=a[1];
For i:=2 to 50 do
if a[i]>max then max:=a[i];
Write('Diem trung binh lon nhat la ',max:10:2);
Readln
End.
Var a:array:[1..50] of real;
i:integer;
max:real;
Begin
For i:=1 to 50 do
Begin
Write('Nhap diem thu ',i,' = ');readln(a[i]);
End;
Write('Cac diem vua nhap la: ');
For i:=1 to 50 do
Write(a[i]:10:2);
writeln;
max:=a[1];
For i:=2 to 50 do
if a[i] > max then max:=a[i];
write('Diem lon nhat la ',max:10:2);
Readln
End.
Viết chương trình nhập trung bình môn Tin học của các bạn học sinh trong lớp. In ra màn hình điểm của các bạn và điểm số lớn nhất (hoặc nhỏ nhất) của lớp.
refer
uses crt;
var i,n:longint;
a:array[1..100] of real;
s1,s,max,min:real;
begin
clrscr;
write('Nhap n: '); readln(n);
for i:=1 to n do
begin
write('Diem trung binh mon tin hoc cua ban thu ',i,' la: ');readln(a[i]);
end;
min:=a[1];max:=a[1];
for i:=2 to n do begin
if a[i]>max then max:=a[i];
if a[i]<min then min:=a[i]; end;
for i:=1 to n do
s:=s+a[i];
s1:=s/n;
writeln('So diem cao nhat la: ',max);
writeln('So diem thap nhat la: ',min);
write('Diem TB cua ca lop la: ',s1:0:1);
readln
viết chương trình nhập điểm thi 2 môn ngữ văn và toán của các học sinh khối 9 tính điểm trung bình và in ra màn hình kết quả thi đậu nếu điểm trung bình lớn hơn hoặc bằng 5 còn thi trượt nếu như điểm trung bình bé hơn 5
program DiemTB;
var
diemToan, diemVan, diemTB: real;
begin
write('Nhap diem mon Toan: ');
readln(diemToan);
write('Nhap diem mon Van: ');
readln(diemVan);
diemTB := (diemToan + diemVan) / 2;
writeln('Diem trung binh: ', diemTB:0:2);
if diemTB >= 5 then
writeln('Chuc mung! Ban da dau ky thi.')
else
writeln('Rat tiec! Ban da truot ky thi.');
readln;
end.
Viết chương trình nhập điểm trung bình môn tin học cuối hk1 của các bạn hc sinh trong lớp em và in ra số điểm cao nhất?
GIÚP EM VỚI Ạ ! MAI EM THI RỒI
Nếu chưa học câu lệnh này thì rep lại cho mình để mình dùng mấy câu lệnh đã học từ b8 trở về trước nhá! Good luck for you :D
uses crt;
var a:array[1..50]of real;
max:real;
i,n:integer;
begin
clrscr;
write('Nhap n='); readln(n);
for i:=1 to n do
begin
write('Nhap diem cua ban thu ',i,'='); readln(a[i]);
end;
max:=a[1];
for i:=1 to n do
if max<a[i] then max:=a[i];
writeln(max);
readln;
end.
hãy hoàn thành chương trình phổ thông kết quả kì thi nghề phổ thông như sau:Nhập vào và in ra họ và tên(HT)lớp(L) điểm thi lý thuyết(ĐLT) điểm thi thực hành(ĐTH) sau đó tính điểm trung bình(ĐTB) của 2 phần thì đónếu điểm trung bình lớn hơn 5 thì thông báo thi đậu và ngược lại bạn thì lại
Câu 3: Hãy viết chương trình cho phép nhập điểm bài kiểm tra môn Tin của một bạn rồi thực hiện:
- Nếu điểm nhỏ hơn 0 hoặc lớn hơn 10 thì thông báo bạn nhập không hơp lệ.
- Nếu điểm lớn hơn hoặc bằng 0 và nhỏ hơn 5, in ra dòng chữ “Ban can co gang hon”
- Nếu điểm lớn hơn hoặc bằng 5 và nhỏ hơn 6.5, in ra dòng chữ “Ban dat diem trung binh”.
- Nếu điểm lớn hơn hoặc bằng 6.5 và nhỏ hơn 8, in ra dòng chữ “Ban dat diem kha”.
- Nếu điểm lớn hơn hoặc bằng 8, in ra dòng chữ “Hoan ho, ban dat diem gioi”.