Viết chương trình nhập vào một mảng số nguyên dồi in ra các phần tử của mảng trên cùng dòng

0 bình luận về “Viết chương trình nhập vào một mảng số nguyên dồi in ra các phần tử của mảng trên cùng dòng”

1. uses crt;
   var A:array[1..1000] of integer;
       i,n:integer;
   begin
      clrscr;
      write(‘Nhap n: ‘); readln(n);
      for i:=1 to n do
      begin 
         write(‘Nhap phan tu thu ‘,i,’: ‘);
         readln(A[i]);
      end;
      for i:=1 to n do write(A[i]:4);
      readln
   end.

   Bình luận

2. program ct;

   uses crt;

   var  i,n:ineteger;

   A:array[1..100]of integer;

   begin

   clrscr;

   write(‘nhap n:=’);readln(n);

   for i:=1 to n do

   begin

   writeln(‘nhap mang a[‘,i,’]:=’);readln(a[i]);

   end;

   for i:=1 to n do 

   writeln(a[i]:5);

   readln

   end.
    

   Bình luận