vct nhập điểm môn toán, môn văn, môn lý cho các học sinh trong lớp, hãy in ra điểm của từng học sinh trong từng môn
vct nhập điểm môn toán, môn văn, môn lý cho các học sinh trong lớp, hãy in ra điểm của từng học sinh trong từng môn
By Julia
By Julia
vct nhập điểm môn toán, môn văn, môn lý cho các học sinh trong lớp, hãy in ra điểm của từng học sinh trong từng môn
program phuongt;
uses crt;
var E: array[1..10] of real;
X: array[1..10] of real;
O: array[1..10] of real;
i, a: integer;
begin
clrscr;
write(‘Nhap so hoc sinh trong 1 lop: ‘); readln(a);
for i:=1 to a do
begin
writeln(‘Nhap diem ban thu ‘, i);
write(‘Toan: ‘); readln(E[i]);
write(‘Van: ‘); readln(X[i]);
write(‘Li: ‘); readln(O[i]);
end;
clrscr;
writeln(‘Diem tung hoc sinh trong tung mon:’);
writeln(‘Mon Toan:’);
if (E[i]<=10) and (E[i]>=0) then
for i:=1 to a do writeln(‘Ban thu ‘, i, ‘: ‘, E[i]:2:1);
writeln(‘Mon Van:’);
if (X[i]<=10) and (X[i]>=0) then
for i:=1 to a do writeln(‘Ban thu ‘, i, ‘: ‘, X[i]:2:1);
writeln(‘Mon Li:’);
if (O[i]<=10) and (O[i]>=0) then
for i:=1 to a do writeln(‘Ban thu ‘, i, ‘: ‘, O[i]:2:1);
readln
end.