Viết chương trình nhập vào 1 dãy số và in ra theo thứ tự ngược lại Helpppp!!!

2 câu trả lời

program nguoclai;

uses crt;

var n, i: integer;

      X: Array [1..100] of integer;

begin

write('Nhap so luong fan tu, n = '); readln(n);

For i := 1 to n do begin

write ('So X[,'i',] la: '); readln(X[i]);

end;

For i:=n down to 1 do write(X[i],',');

readln

end.

var n, i: integer;

M: array[1..100] of real;

Begin

write('Nhap so n: ');readln(n);

for i:=1 to n do

Begin

write('M[',i,']='); readln(M[i]);

end;

for i:= n downto 1 do write(m[i],’ ,’);

readln

end.