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!!!

0 bình luận về “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!!!”

1. 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.

   Bình luận

2. 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.

   Bình luận