Viết chương trình tạo mảng ngẫu nhiên a) xuất nửa đầu của mảng b) xuất nửa cuối của mảng

0 bình luận về “Viết chương trình tạo mảng ngẫu nhiên a) xuất nửa đầu của mảng b) xuất nửa cuối của mảng”

1. program ngau_nhien;

   uses crt;

   var A:array[1..1000] of integer;

         n,i:integer;

   begin

          clrscr;

          repeat

                 write(‘Nhap so luong phan tu: ‘);  readln(n);

                 if n mod 2<>0 then

                        begin

                               writeln(‘Phai la so chan’);

                               readln;

                               clrscr;

                        end;

          end;

          randomize;

          for i:=1 to n do

                 A[i]:=random(1000);

          writeln(‘a) Nua dau mang la: ‘);

          for i:=1 to n div 2 do write(A[i],’ ‘);

          writeln;

          writeln(‘b) Nua cuoi mang la: ‘);

          for i:=(n div 2)+1 to n do write(A[i],’ ‘);

          readln;

   end.

   Bình luận