Viết chương trình pascal và biến mảng kiểu số nguyên gồm 50 phần tử

0 bình luận về “Viết chương trình pascal và biến mảng kiểu số nguyên gồm 50 phần tử”

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

   Bình luận

2. program nhap_phan_tu;

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

   Bình luận