uses crt;
var st:array[1..40]of string[30];
a:array[1..40]of integer;
i,n:integer;
begin
clrscr;
write('Nhap so hoc sinh:'); readln(n);
for i:=1 to n do
begin
write('Nhap diem cua hoc sinh thu ',i,'='); readln(a[i]);
end;
for i:=1 to n do
begin
write('Nhap ten cua hoc sinh thu ',i,'='); readln(st[i]);
end;
readln;
end.
Đúng 0
Bình luận (0)