Question

Viết chương trình nhập họ tên đầy đủ trong lớp học( không quá 50 người)

Answer 1

uses crt;

var ten:array[1..50]of string;

n,i,j,x:integer;

begin

clrscr;

repeat

write('Nhap so hoc sinh:'); readln(n);

until (0<n) and (n<=50);

for i:=1 to n do

begin

write('Nhap ten cua hoc sinh thu ',i,'='); readln(ten[i]);

end;

readln;

end.