Viết chương trình nhập vào một mảng gồm N (N<100) các số nguyên dương <= 255.Hãy đưa ra màn hình các số ở vị trí let của mảng

0 bình luận về “Viết chương trình nhập vào một mảng gồm N (N<100) các số nguyên dương <= 255.Hãy đưa ra màn hình các số ở vị trí let của mảng”

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

           Write(‘Cac phan tu o vi tri le: ‘);
           For i:=1 to n do
                   If i mod 2 = 1 then Write(A[i],’ ‘);
           Readln
   End.

   Bình luận

2. Var    a:array[1..255]of integer

             i,n:longint;

   Begin

               readln(n);

              for i:=1 to n do readln(a[i]);

               for i:=1 to n do

               begin

                  if i mod 2 <>0 then write(a[i]);

                 end;

            readln;

   End.

   Bình luận