Sử dụng biến mảng, viết chương trình nhập tên 10 bạn bất kì trong lớp.
Xin mọi người giúp hộ mình viết chương trình, mình sắp kiểm tra học kì rồi cảm ơn nhiều. ❤
Sử dụng biến mảng, viết chương trình nhập tên 10 bạn bất kì trong lớp.
Xin mọi người giúp hộ mình viết chương trình, mình sắp kiểm tra học kì rồi cảm ơn nhiều. ❤
program ho;
uses crt;
var a: array [1..10] of string;
i:integer;
begin
clrscr;
for i:=1 to 10 do
begin
writeln(‘nhap ten ban thu’,i ,’ ‘); readln(a[i]);
writeln( a[i]);
end;
readln;
end.
cho xin 5* và hay nhất
program nhap_ten;
uses crt;
var ten:array[1..10] of string;
i:byte;
begin
clrscr;
for i:=1 to 10 do
begin
write(‘Nhap ten ban thu ‘,i,’: ‘); readln(ten[i]);
end;
for i:=1 to n do writeln(ten[i]);
readln;
end.