Nhập mảng A gồm N phần tử ( N<=10). Sắp xếp dãy số theo quy tắc sau A1 đổi chỗ cho An, A2 đổi chỗ cho An-1, A2 đổi chỗ cho An-2 - Đưa kết quả ra mà

0 bình luận về “Nhập mảng A gồm N phần tử ( N<=10). Sắp xếp dãy số theo quy tắc sau A1 đổi chỗ cho An, A2 đổi chỗ cho An-1, A2 đổi chỗ cho An-2 - Đưa kết quả ra mà”

1. Program FNG;
   Uses crt;
   Var A: array[1..1000] of longint;
       n,i,tg: longint;
   Begin
           Clrscr;
           Write(‘Nhap n: ‘); Readln(n);
           For i:=1 to n do
           Begin
                   Write(‘A[‘,i,’] = ‘);
                   Readln(A[i]);
           End;

           For i:=1 to n div 2 do
           Begin
                   tg:=A[i];
                   A[i]:=A[n-i+1];
                   A[n-i+1]:=tg;
           End;
           For i:=1 to n do Write(A[i],’ ‘);
           Readln
   End.

   Trả lời