#include <bits/stdc++.h>

using namespace std;

double a[10],b,c,tb;

int n,i,dem;

int main()

{

cout<<"Nhap so cot thuong xuyen:"; cin>>n;

tb=0;

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

{

cin>>a[i];

tb=tb+a[i];

}

cin>>b>>c;

tb=tb+b+c;

cout<<fixed<<setprecision(2)<<tb/(n+2)<<endl;

if (tb>=8) 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[10],b,c,tb;

int i,n;

int main()

{

cout<<"Nhap so cot thuong xuyen:"; cin>>n;

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

cout<<"Nhap diem giua ki:"; cin>>b;

cout<<"Nhap diem cuoi ki:"; cin>>c;

tb=0;

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

tb=tb+b+c;

tb=tb/((n+2)*1.0);

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

if (tb>=8) 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;

}

Var a:array:[1..1000] of real;

i,m:integer;

Begin

Write('m = ');readln(m);

For i:=1 to m do

Begin

Write('Nhap so thu ',i,' = ');readln(a[i]);

End;

Write('Cac diem vua nhap la: ');

For i:=1 to m do 

Write(a[i]:10:2);

Readln

End.

a: 

#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;

}

b: 

#include <bits/stdc++.h>

using namespace std;

long long a[50],n,i,t;

int main()

{

cin>>n;

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

t=0;

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

cout<<t;

return 0;

}

Đây là code Pascal để nhập và in điểm kiểm tra học kì môn tin cho N của từng học sinh:

program DiemKT;

var
N, i: integer;
diem: array1..100 of integer;

begin
write('Nhap so hoc sinh: ');
readln(N);

for i := 1 to N do
begin
write('Nhap diem kiem tra hoc ki cua hoc sinh thu ', i, ': ');
readln(diemi);
end;

writeln('Diem kiem tra hoc ki cua ', N, ' hoc sinh la:');

for i := 1 to N do
writeln('Hoc sinh thu ', i, ': ', diemi);

end.

gọi điểm kiểm tra học kì của Tiến để đạt được hsg là x ( x>0) \(\Rightarrow\)theo đầu bài ta có tổng hệ số là 13 nên ta có phương trình sau :

\(\frac{9+9+9+6+8.2+8.2+9.2+3x}{13}\)=    \(8\)

\(\Rightarrow\)75 + 3x = 104

\(\Rightarrow\)3x  =  29

\(\Rightarrow\)x sấp sỉ 10 điểm thì thỏa mãn đk ủa ẩn và giúp điểm phảy trung bình của Đạt đạt loại giỏi

uses crt;
var b,c:real; a:array[1..100] of integer; s:real;
begin
clrscr;
write('Nhap vao diem hoc ki 1:');readln(b);
write('Nhap vao diem hoc ki 2:');readln(c);
s:=((b+c)*2)/3;
write('Diem ca nam=',s:2:2);
readln;
end.

Tham khảo! Làm hơi ngắn

có nhiều lắm bạn ạ  nếu bạn được 6 môn anh thì lo học mà kéo điểm 1 tiết lên nhà ko là đúp lớp đấy .

bạn học kĩ vào vì có thể kiểm tra bất ngờ đấy 

Tớ kiểm tra học kì được 10 Anh cơ

Đừng nói tớ khoe khoang nhé,tớ muốn chia sẻ niềm vui thôi

mình cũng chuản bị thi