Var a:array[1..100] of integer;
n,i:integer;
Begin
write('Do dai cua mang can nhap?');readln(n);
For i:=1 to n do
begin
write('Phan tu thu ',i,'=?');readln(a[i])
end;
writeln('Mang dao nguoc la :');
For i:=n downto 1 do write(a[i]:5);
Readln;
End.
n,i:integer;
Begin
write('Do dai cua mang can nhap?');readln(n);
For i:=1 to n do
begin
write('Phan tu thu ',i,'=?');readln(a[i])
end;
writeln('Mang dao nguoc la :');
For i:=n downto 1 do write(a[i]:5);
Readln;
End.
Nhãn: Bài tập Pascal, Mảng 1 chiều, Pascal cơ bản
Spot on with this write-up, I truly believe that this site needs much more attention.
I'll probably be back again to read through more, thanks for the info!
My weblog; digital digi Tv
lúc 17:55 2 tháng 5, 2013
nói cái gì thế
lúc 18:39 15 tháng 7, 2013
sai rooi :')
lúc 16:25 5 tháng 4, 2021
Đăng nhận xét