uses crt;

var i,n:byte;Max:real;

a:array[1..50]of real;

begin

clrscr;

write('nhap so hoc sinh cua lop:');readln(n);

for i:=1 to n do

begin

  write('nhap diem trung binh mon tin cho hoc sinh thu ',i,':');readln(a[i]);

end;

max:=a[1];

for i:=1 to n do

if max<a[i] then max:=a[i];

writeln('diem trung binh mon tin cao nhat la: ',Max);

readln;

end.

uses crt;

var i,n:byte;Max:real;

a:array[1..50]of real;

begin

clrscr;

write('nhap so hoc sinh cua lop:');readln(n);

for i:=1 to n do

begin

  write('nhap diem trung binh mon tin cho hoc sinh thu ',i,':');readln(a[i]);

end;

max:=a[1];

for i:=1 to n do

if max<a[i] then max:=a[i];

writeln('diem trung binh mon tin cao nhat la: ',Max:0:1);

readln;

end.

#include <bits/stdc++.h>

using namespace std;

double a,b,tb;

int main()

{

cin>>a>>b;

tb=(a+b*2)/3;

cout<<fixed<<setprecision(2)<<tb<<endl;

if (tb>=8.0) cout<<"Gioi";

else if ((tb>=6.5) and (tb<8)) cout<<"Kha";

else if ((tb>=5.0) and (tb<6.5)) cout<<"Trung binh";

else cout<<"Yeu";

return 0;

}

uses crt;

var a,b,tb:real;

begin

clrscr;

readln(a,b);

tb:=(a+b*2)/3;

writeln(tb:4:2);

if (tb>=8) then writeln('gioi')

else if ((tb>=6.5) and (tb<8)) then writeln('Kha')

else if ((tb>=5) and (tb<6.5)) then writeln('Trung Binh')

else writeln('Yeu');

readln;

end.

#include <bits/stdc++.h>

using namespace std;

double a,b,kq;

int main()

{

cin>>a>>b;

kq=(a+b*2)/3;

cout<<fixed<<setprecision(2)<<kq;

return 0;

}

bạn ơi có sai gì ko vậy

#include <bits/stdc++.h>

using namespace std;

double a,b,tb;

int main()

{

cin>>a>>b;

tb=(a+b*2)/3;

cout<<fixed<<setprecision(2)<<tb<<endl;

if (tb>=8.0) cout<<"Gioi";

else if ((tb>=6.5) and (tb<8)) cout<<"Kha";

else if ((tb>=5) and (tb<6.5)) cout<<"Trung binh";

else cout<"Yeu";

return 0;

}

#include <bits/stdc++.h>

using namespace std;

double a,b,c;

int main()

{

cin>>a>>b>>c;

cout<<fixed<<setprecision(2)<<(a+b+c)/3;

return 0;

}