Đề: Viết CT nhập vào tên cho tất cả HS trong trường. Việc nhập dừng lại khi tên nhập vào là "STOP".
*Dùng biến mảng
Sửa bài giúp mình! Đề ở trên:
program gainhatdo;
uses crt;
var ten:array[1..100] of string;
i,n:integer;
begin
clrscr;
writeln('Moi nhap danh sach ten HS cua truong:');
i:=1;
while ten[i]<>'stop' do
begin
writeln('Ten HS thu ',i,' :'); readln(ten[i]);
i:=i+1;
end;
writeln('Danh sach ten da nhap:');
for n:=1 to i do writeln(ten[n]);
readln;
end.
Loga
Sinh Học lớp 12
