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 !!! 24/07/2021 Bởi Parker 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 !!!
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. Bình luận
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! Bình luận
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.
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!