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.