Viết chương trình nhập vào dãy số nguyên in ra màn hình dãy số đã nhập

0 bình luận về “Viết chương trình nhập vào dãy số nguyên in ra màn hình dãy số đã nhập”

1. uses crt;
   var i,n:longint; a:array[1..1000]of longint; 
   begin
   clrscr;
      write(‘Nhap so luong phan tu: ‘);readln(n);
      for i:=1 to n do 
         begin
            write(‘Nhap phan tu thu ‘,i,’: ‘);readln(a[i]);
         end;
      writeln(‘Day so da nhap: ‘);
      for i:=1 to n do write(a[i],’ ‘);
   readln
   end.

   Bình luận

2. uses crt;
   var a:array[1..1000] of longint;
           n,i:integer;
   begin
           clrscr;
           write(‘Nhap n: ‘);readln(n);
           for i:=1 to n do
                   begin
                           write(‘a[‘,i,’]: ‘);readln(a[i]);
                   end;
           write(‘Day vua nhap: ‘);
           for i:=1 to n do write(a[i],’ ‘);
           readln;
   end.

   Bình luận