Viết chương trình nhập 1 mảng gồm n phần tử (n nhập từ bàn phím ) các số thực rồi in ra màn hình mảng vừa nhập theo thứ tự ngược lại.
mn giải chương trình hộ mình vs ạ
program Min; uses crt; var A:array[1..10000] of real; n,i:integer; begin clrscr; write('Nhap n: '); readln(n); for i:=1 to n do begin write('Nhap phan tu thu ',i,': '); readln(A[i]); end; for i:=n downto 1 do write(A[i]:4:2); readln end.
uses crt; var a:array[1..100]of real; i,n:longint; begin clrscr; readln(n); for i:=1 to n do readln(a[i]); for i:=n downto 1 do write(' ',a[i]:3:2); readln end.