Nhập từ bàn phím 2 mảng 1 chiều A,B sau đó in 2 mảng vừa nhập lên màn hình

0 bình luận về “Nhập từ bàn phím 2 mảng 1 chiều A,B sau đó in 2 mảng vừa nhập lên màn hình”

1. uses crt;

   var a,b: array[1..1000] of integer;

   na,nb: integer;

   begin

   clrscr;

   write (‘nhap so phan tu cua mang a: ‘);  readln (na);

   write (‘nhap so phan tu cua mang b: ‘);  readln (nb);

   for i:=1 to na do

    begin

     write (‘nhap a[‘,i,’]: ‘);  readln(a[i]);

    end;

   for i:=1 to nb do

    begin

     write (‘nhap b[‘,i,’]: ‘);  readln(b[i]);

    end;

   write (‘mang a: ‘);

   for i:=1 to na do write (a[i],’  ‘);

   write (‘mang b: ‘); 

   for i:=1 to nb do write (b[i],’  ‘);

   readln;

   end.

   Bình luận

2. program mang;

   uses crt;

   var A,B:array[1..100] of integer;

         i,n,m:integer;

   begin

   clrscr;

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

   writeln(‘NHAP GIA TRI TUNG PHAN TU CUA MANG A: ‘);

   for i:= to n do

    begin

     write(‘A[‘,i,’]= ‘);

     readln(A[i]);

    end;

   write(‘Nhap so luong phan tu cua day B: ‘);   readln(m);

   writeln(‘NHAP GIA TRI PHAN TU CUA MANG B’);

   for i:=1 to m do

    begin

     write(‘B[‘,i,’= ‘);

     readln(B[i]);

    end;

   write(‘Mang A la: ‘);

   for i:=1 to n do

    write(A[i],’ ‘);

   writeln;

   write(‘Mang B la: ‘);

   for i:=1 to m do

    write(‘B[i],’ ‘);

   readln

   end.

   Bình luận