Viết chương trình nhập điểm môn Toán, Văn, Lí cho các học sinh trong 1 lớp. Hãy in ra điểm của từng học sinh trong từng môn
Viết chương trình nhập điểm môn Toán, Văn, Lí cho các học sinh trong 1 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 B, T, S: array[1..10] of real;
i, x: integer;
begin
clrscr;
write(‘Nhap so hoc sinh trong 1 lop: ‘); readln(x);
for i:=1 to x do
begin
writeln(‘Nhap diem ban thu ‘, i);
write(‘Toan: ‘); readln(B[i]);
write(‘Van: ‘); readln(T[i]);
write(‘Li: ‘); readln(S[i]);
end;
clrscr;
writeln(‘Diem tung hoc sinh trong tung mon:’);
writeln(‘Mon Toan:’);
if (B[i]<=10) and (B[i]>=0) then for i:=1 to x do writeln(‘Ban thu ‘, i, ‘: ‘, B[i]:2:1);
writeln(‘Mon Van:’);
if (T[i]<=10) and (T[i]>=0) then for i:=1 to x do writeln(‘Ban thu ‘, i, ‘: ‘, T[i]:2:1);
writeln(‘Mon Li:’);
if (S[i]<=10) and (S[i]>=0) then for i:=1 to x do writeln(‘Ban thu ‘, i, ‘: ‘, S[i]:2:1);
readln
end.
uses crt;
var
toan,van,li: array[1..100] of integer;
i,N: integer;
begin
write(‘nhap so hoc sinh cua lop ‘); readln(N);
for i:=1 to N do
begin
write(‘nhap diem toan cua ban hoc sinh ‘,i,’ ‘); readln(toan[i]);
write(‘nhap diem van cua ban hoc sinh ‘,i,’ ‘); readln(van[i]);
write(‘nhap diem li cua ban hoc sinh ‘,i,’ ‘); readln(li[i]);
end;
for i:=1 to N do writeln(‘diem toan cua ban hoc sinh ‘,i,’ la ‘,toan[i]);
for i:=1 to N do writeln(‘diem van cua ban hoc sinh ‘,i,’ la ‘,van[i]);
for i:=1 to N do writeln(‘diem li cua ban hoc sinh ‘,i,’ la ‘,li[i]);
readln
End.