Đâ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 a:array[1..20]of real;

t,tb,ln,nn:real;

i,n:integer;

begin

clrscr;

readln(n);

for i:=1 to n do readln(a[i]);

t:=0;

for i:=1 to n do t:=t+a[i];

writeln(t:4:2);

writeln(t/n:4:2);

nn:=a[1];

ln:=a[1];

for i:=1 to n do 

begin

 if nn>a[i] then nn:=a[i];

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

end;

writeln(nn);

writeln(ln);

readln;

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.

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

i:integer;

Begin

For i:=1 to 35 do

Begin

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

End;

write('Diem vua nhap la ');

For i:=1 to 35 do write(a[i]:10:2);

Writeln;

write('Cac diem duoi 5 hoac >  la ');

For i:=1 to 35 do

If (a[i]>9) or (a[i]<5) then write(a[i]:10:2)

Readln

End.

Để lưu trữ danh sách học sinh và thông tin điểm thi của họ, bạn có thể sử dụng một danh sách chứa nhiều danh sách con. Mỗi danh sách con sẽ chứa tên học sinh (dạng chuỗi) và ba điểm số (dạng số) của họ tương ứng với ba bài thi.

Ví dụ, để tạo một mảng danh sách học sinh với thông tin điểm số, ta có thể sử dụng mã như sau:

# Nhập danh sách học sinh và điểm số

students = []

n = int(input("Nhập số lượng học sinh: "))

for i in range(n):

  name = input(f"Nhập tên học sinh thứ {i+1}: ")

  mark1 = float(input(f"Nhập điểm bài thi 1 của {name}: "))

  mark2 = float(input(f"Nhập điểm bài thi 2 của {name}: "))

  mark3 = float(input(f"Nhập điểm bài thi 3 của {name}: "))

  students.append([name, mark1, mark2, mark3])

# Tính điểm trung bình và in ra danh sách học sinh và điểm trung bình của họ

for student in students:

  name = student[0]

  mark1 = student[1]

  mark2 = student[2]

  mark3 = student[3]

  avg_mark = (mark1 + mark2 + mark3) / 3

  print(f"Học sinh {name} có điểm trung bình là {avg_mark}")

uses crt;

var i,n,dem:integer;

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

begin

clrscr;

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

for i:=1 to n do

begin

repeat

write('Nhap diem trung binh mon Tin Hoc cua ban thu ',i,'='); readln(a[i]);

until (0<a[i]) and (a[i]<=10);

end;

dem:=0;

for i:=1 to n do

if a[i]>=5 then inc(dem);

writeln('So ban co diem tren trung binh la: ',dem);

readln;

end.