Đề: Hãy viết chương trình Pascal hoàn chỉnh nhập vào điểm thi 1 lớp. Sau đó tính điểm trung bình của cả lớp. Tìm điểm thi cao nhất rồi in kết quả ra màn hình. Biết điểm thi, số lượng học sinh của lớp được nhập từ bàn phím.
Giúp mình với ạ.
Hãy nhập câu hỏi của bạn vào đây, nếu là tài khoản VIP, bạn sẽ được ưu tiên trả lờ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
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.
#include <bits/stdc++.h>
using namespace std;
double a,b,c,tb;
int main()
{
cin>>a>>b>>c;
tb=(a+b)*2+c;
if (tb>=38) cout<<"Chuc man ban da thi dau tuyen sinh";
else cout<<"Ban da thi rot, chuc may man lan sau";
return 0;
}
uses crt;
var a:array[1..100]of real;
i,n:integer;
ln:real;
begin
clrscr;
readln(n);
for i:=1 to n do readln(a[i]);
for i:=1 to n do writeln(a[i]);
ln:=a[1];
for i:=1 to n do if ln<a[i] then ln:=a[i];
writeln(ln);
readln;
end.
uses crt;
var a,b,c,tb:array[1..10]of real;
ln,nn:real;
n:integer;
i:integer;
begin
clrscr;
readln(n);
for i:=1 to n do readln(a[i],b[i],c[i]);
for i:=1 to n do
tb[i]:=(a[i]+b[i]+c[i])/3;
for i:=1 to n do
writeln(tb[i]:4:2);
readln;
end.
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}")
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
Lời giải :
program hotrotinhoc ;
var a: array[1..100] of real ;
i,n,T : integer ;
s: real ;
Begin
write('Nhap so luong hoc sinh trong lop'); Readln(n);
writeln('Nhap diem cua cac ban hoc sinh');
for i:= 1 to n do
begin
write('Nhap diem cua ban thu',i,':'); readln(a[i]);
end;
T:=1; s:=0;
for i:= 2 to n do
begin
if T<a[i] then T:=a[i] ;
s:=s+a[i];
end;
write('Diem thi cao nhat lop la:',T);
write('Diem trung binh cua ca lop la',s);
readln
end.