[Tin học 8] Làm việc với dãy số.

C

concanhcam

var i , n :byte;
a:array[1..100] of byte;
begin

write('nhap n');
readln(n);

for i:=1 to n do
begin
write('phần tử thứ ', i,'= ' );
readln(n);
end;
readln;
end.
 
Top Bottom