Viết chương trình nhập họ tên của 39 học sinh lớp em theo kiểu xâu ạ ?? help me !!!
2 câu trả lời
uses crt;
var a:array[1..39] of string;
i:byte;
BEGIN
clrscr;
for i:=1 to 39 do
begin
write('Nhap ho ten nguoi thu ',i,':');
readln(a[i]);
end;
END.
Chúc bạn học tốt!
program hoten;
uses crt;
var ht:array[1..100] of string;
i,tv:byte;
lop:string;
begin
clrscr;
write('Nhap ten lop: '); readln(lop);
write('Nhap so luong thanh vien lop: '); readln(tv);
for i:=1 to tv do
begin
write('Ten ban thu ',i,': ');
readln(ht[i]);
end;
readln
end.
