viết chương trình pascal nhập dãy số gồm N số nguyên nhập từ bàn phím.Thực hiện: - In dãy số đã nhập ra màng hình. - In dãy số đó theo chiều ngược lại. -Xuất phần tử thứ j ra màng hình. với j nhập từ bàn phím (j<=N)
2 câu trả lời
uses crt;
var n:string;
j,i:integer;
begin
write('nhap day N:');readln(n);
write('nhap j:');readln(j);
for i:=1 to lenght(n) do write(n[i]);
writeln;
for i:=lenght(n) downto 1 do write(n[i]);
writeln;
writeln(n[j]);
readln;
end.
program bai_giai;
uses crt;
var a:array[1..10000]of longint;i,n,j:longint;
begin
clrscr;
write('nhap n:');readln(n);
for i:=1 to n do
begin
write('nhap a[',i,']=');readln(a[i]);
end;
write('xuat mang: ');
for i:=1 to n do write(a[i],' ');
writeln;
write('xuat mang nguoc lai: ');
for i:=n downto 1 do write(a[i],' ');
writeln;
write('nhap j:');readln(j);
write('so o vi tri ',j,' la:');
write(a[j]);
readln;
end.
