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

Question

minhthue · Answer

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.

0 bình luận về “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”