uses crt;

var a:array[1..10]of integer;

i,n,tb:integer;

begin

clrscr;

for i:=1 to 10 do 

  begin

write('A[',i,']='); readln(a[i]);

end;

for i:=1 to 10 do 

  if a[i]>=8 then write(a[i]:4);

tb:=0;

for i:=1 to 10 do 

  tb:=tb+a[i];

writeln;

writeln('Diem trung binh cua 10 ban la: ',tb:4:2);

readln;

end.
 

#include <bits/stdc++.h>

using namespace std;

double a[100],t;

int n,i;

int main()

{

cin>>n;

for (i=1; i<=n; i++) cin>>a[i];

for (i=1; i<=n; i++)

cout<<"Diem cua ban thu "<<i<<" la: "<<fixed<<setprecision(2)<<a[i]<<endl;

t=0;

for (i=1; i<=n; i++) t+=a[i];

cout<<"Trung binh cua lop la: "<<fixed<<setprecision(2)<<t/(n*1.0);

return 0;

}

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.

nếu chạy ct mà nó không dừng lại thì bấm alt+F5 nhá

uses crt;

var a:real;

begin

clrscr;

readln(a);

if (a>=9) then write('A')

else if ((7<=a) and (a<9)) then write('B')

else if ((5<=a) and (a<7)) then write('C')

else write('D');

readln;

end.

python
 

diem_tb = float(input("Nhập điểm trung bình của học sinh: "))

if diem_tb >= 9:
    loai = 'A'
elif diem_tb >= 7:
    loai = 'B'
elif diem_tb >= 5:
    loai = 'C'
else:
    loai = 'D'

print("Loại học sinh: ", loai)


Pascal
 

program PhanLoaiHocSinh;
var
  diem_tb: real;
  loai: char;
begin
  write('Nhap diem trung binh cua hoc sinh: ');
  readln(diem_tb);

  if diem_tb >= 9 then
    loai := 'A'
  else if diem_tb >= 7 then
    loai := 'B'
  else if diem_tb >= 5 then
    loai := 'C'
  else
    loai := 'D'

  writeln('Loai hoc sinh: ', loai);
end.

var TB:real;
begin
    readln(TB);
    if TB>=9 then
        writeln('A')
    else if TB>=7 then
        writeln('B')
    else if TB>=5 then
        writeln('C')
    else
        writeln('D');
   readln;
end.

#include <bits/stdc++.h>

using namespace std;

double a,b,c,tb;

int main()

{

cin>>a>>b>>c;

tb=(a+b+c)/3;

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

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

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

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

else cout<<"Chua dat";

return 0;

}

var t,dt,a,tb: real;

begin

write('Nhap diem mon Toan: '); readln(t);

write('nhap diem mon Tin: '); readln(dt);

write('Nhap diem mon Anh: '); readln(a);

if (a<=0) or (a>=10) or (t<=0) or (t>=10) or (dt<=0) or (dt>=10) then

repeat

writeln('Khong hop le, nhap lai: ');

write('Nhap diem mon Toan: '); readln(t);

write('nhap diem mon Tin: '); readln(dt);

write('Nhap diem mon Anh: '); readln(a);

until (a>=0) and (a<=10) and (t>=0) and (t<=10) and (dt>=0) and (dt<=10);

tb:=(t+dt+a)/3;

writeln('Diem trung binh: ',tb:2:1);

if (dt>=6.5) and (t>=6.5) and (a>=6.5) and (tb>=8) then writeln('Gioi') else

if (dt>=5) and (t>=5) and (a>=5) and (tb>=6.5) then writeln('Kha') else writeln('Trung binh');

end.

uses crt;

var toan,tin,anh,tb:real;

kt:integer;

begin

clrscr;

repeat

write('Nhap diem Toan:'); readln(toan);

write('Nhap diem Tin:'); readln(tin);

write('Nhap diem Anh:'); readln(anh);

until (0<=toan) and (toan<=10) and (0<=tin) and (tin<=10) and (0<=anh) and (anh<=10);

tb:=(toan+tin+anh)/3;

writeln('Diem trung binh cua 3 mon la: ',tb:4:2);

kt:=0;

if (tb>=8) and (toan>=6.5) and (tin>=6.5) and (anh>=6.5) then kt:=1;

if (6.5<=tb) and (tb<8) and (5<=toan) and (toan<6.5) and (5<=tin) and (tin<6.5) and (5<=anh) and (anh<6.5) then kt:=2;

if kt=0 then writeln('Hoc sinh trung binh');

if kt=1 then writeln('Hoc sinh gioi');

if kt=2 then writeln('Hoc sinh kha');

readln;

end.

#include <bits/stdc++.h>

using namespace std;

double a[1000];

int n,i;

int main()

{

cin>>n;

for (i=1; i<=n; i++) cin>>a[i];

for (i=1; i<=n; i++) cout<<a[i]<<" ";

return 0;

}