nhập vào một dãy n số nguyên ( N< 20) sau đó xuất ra màn hình dãy số đó trên cùng 1 dòng và các phần tử cách nhau 1 khoảng trống

0 bình luận về “nhập vào một dãy n số nguyên ( N< 20) sau đó xuất ra màn hình dãy số đó trên cùng 1 dòng và các phần tử cách nhau 1 khoảng trống”

1. uses crt;

   var n,i:integer;

         a:array[1..20] of integer;

   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 do write(a[i],’ ‘);

   readln;

   end.

   Bình luận

2. Program BTH;
   Uses Crt;
   var a:array[1..19] of longint;
   i,n:byte;
   Begin
   clrscr;
   Write(‘Nhap n: ‘);readln(n);
   For i:=1 to n do
   Begin
   write(‘Nhap so thu ‘,i,’ : ‘);readln(a[i]);
   end;
   For i:=1 to n do
   Begin
   write(a[i],’ ‘);
   end;
   readln;
   end.

   Bình luận