chuong trinh nhap diem hoc ky mon tin cho A hoc sinh va in ra mo hinh voi A va diem kiem tra duoc nhap tu ban phim lop 8
chuong trinh nhap diem hoc ky mon tin cho A hoc sinh va in ra mo hinh voi A va diem kiem tra duoc nhap tu ban phim lop 8
program ct;
uses crt;
var DT:array[1..100] of real;
i,A:integer;
begin clrscr;
write(‘Nhap so hoc sinh A: ‘); readln(A);
for i:=1 to A do
begin
writeln(‘Nhap diem cho hs thu ‘,i,’: ‘); readln(DT[i]);
end;
for i:=1 to A do
writeln(‘Diem cua hoc sinh thu ‘,i,’ la: ‘,DT[i]:4:2);
readln;
end.
Học tốt!
program ct;
uses crt;
var a,i:integer;
diemtin:array[1..100] of integer;
begin
clrscr;
write(‘so hoc sinh=’);readln(a);
for i:=1 to a do
begin
write(‘nhap diemtin[‘,i,’]:=’);readln(diemtin[i]);
end;
writeln(‘diem vua nhap la:’);
for i:=1 to a do
write(diemtin[i],’ ‘ );
readln
end.