Khai báo1 mảng có tên DiemTB để lưu điểm trung bình môn tin của một lớp có 45 học sinh
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.
#include <bits/stdc++.h>
using namespace std;
double a,b,c,d,t;
int main()
{
cin>>a>>b>>c>>d;
t=(a*3+b*2+c+d)/7;
cout<<fixed<<setprecision(2)<<t<<endl;
if (t>=8) cout<<"Gioi";
else if ((t>=6.5) and (t<8)) cout<<"Kha";
else if ((t>=5) and (t<6.5)) cout<<"Trung binh";
else cout<<"Yeu";
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:array[1..14]of real;
i,n:integer;
t:real;
begin
clrscr;
write('Nhap so mon hoc='); readln(n);
for i:=1 to n do
begin
repeat
write('A[',i,']='); readln(a[i]);
until (0<=a[i]) and (a[i]<=10);
end;
for i:=1 to n do
write(a[i]:4:2,' ');
t:=0;
for i:=1 to n do
t:=t+a[i];
writeln('Diem trung binh mon la: ',t/n:4:2);
if t>=5 then writeln('Duoc len lop')
else writeln('Thi lai');
readln;
end.
Program HOC24;
var Toan,Ly,Tin,TBMToan,TBMLy,TBMTin: real;
i,n: byte;
begin
write('Nhap so ban hoc sinh trong lop: '); readln(n);
for i:=1 to n do
begin
write('Nhap diem Toan; Ly; Tin cua ban thu ',i,': ');
readln(Toan[i],Ly[i],Tin[i]);
end;
TBMToan:=0; TBMLy:=0; TBMTin:=0;
For i:=1 to n do
begin
TBMToan:=TBMToan+Toan[i];
TBMLy:=TBMLy+Ly[i];
TBMTin:=TBMTin+Tin[i];
end;
writeln('Diem trung binh mon Toan la: ',TBMToan:5:1);
writeln('Diem trung binh mon Ly la: ',TBMLy:5:1);
writeln('Diem trung binh mon Tin la: ',TBMTin:5:1);
For i:=1 to n do
writeln('Diem trung binh 3 mon cua ban thu ',i,' la: ',TBMToan+TBMLy+TBMTin:5:1);
Readln
end.
var dtb: array[1..1000] of real;
i,n: integer;
Chương trình:
uses crt;
var dtb: array[1..1000] of real;
i,n: integer;
begin
clrscr;
Write ('so luong 45 hoc sinh: '); readln (n);
for i:=1 to n do;
begin;
write ('nhap diem trung binh hoc sinh thu ',i,': '); readln (a[i]);
end;
write ('day diem vua nhap: ');
for i:=1 to n do write (a[i]:2:2);
readln;
end.
var diemtb:array[1..45]of real;