Đâ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.

Uses crt;

Var i,n:integer;

      a:array[1..1000] of integer;

Begin

clrscr;

Write('Nhap so hoc sinh: ');readln(n);

Writeln('Nhap diem hoc ki mon tin cua ',n,' em hoc sinh:');

For i:=1 to n do

Begin

Write('Hoc sinh thu ',i,' : ');

readln(a[i]);

End;

Writeln('Diem kiem tra cua ',n,' em hoc sinh vua nhap la:');

For i:= 1 to n do writeln('Hoc sinh thu ',i,' : ',a[i]);

readln;

End.

30 học sinh

30 học sinh đó bạn

uses crt;

var a:array[1..100]of real;

i,n:integer;

begin

clrscr;

write('Nhap n='); readln(n);

for i:=1 to n do 

  begin

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

end;

for i:=1 to n do 

  writeln('Diem cua ban thu ',i,' la: ',a[i]:4:2);

readln;

end. 

 HK1 số học sinh giỏi chiếm số phần của hs cả lớp là 
    3:(3+7)=3/10
HK2 số học sinh giởi chiếm số phần cả lớp là 
   2:(2+3)=2/5
 Phân số chỉ 3 học sinh là 
   2/5-3/10=1/10
 số học sinh đạt điểm giỏi giữa kì 2 là 
     (3x10)x2/5=12 học sinh 

Giữa HK2, số học sinh đạt loại giỏi =2/3 số học sinh còn lại nên số học sinh đạt loại giỏi=2/5 số học sinh cả lớp.

3 học sinh chỉ: 2/5-3/10=1/10 số học sinh cả lớp

Số học sinh cả lớp; 3:1/10=30 học sinh

Số học sinh đạt điểm giỏi giữa học kì 2 môn toán: 30x2/5=12 học sinh

Đáp số: 12 học sinh

Bạn tham khảo link này:

https://olm.vn/hoi-dap/detail/80313986600.html

gỉa sử: tất cả học sinh đều đc 9 điểm

số điểm: 9 x 37=333 điểm

thừa: 333-308=25 điểm

thừa vì thay hs điểm 8 = điểm 9

mỗi lần thay hs điểm 8 = điểm 9 thì thừa:

9-8=1 điểm

số hs đc điểm 8 là: 25:1= 25 học sinh 

đáp số: 25 học sinh 

Hok tốt!!

là = 25