Câu 1: Viết câu lệnh: Khai báo mãng A gồm N phần tử số (N <= 100). Mỗi phần tử đều có tuyệt đối giá trị <= 200

0 bình luận về “Câu 1: Viết câu lệnh: Khai báo mãng A gồm N phần tử số (N <= 100). Mỗi phần tử đều có tuyệt đối giá trị <= 200”

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

   Bình luận

2. program tt;

   uses crt;

   var a: array[1..100] of integer;

       i,n: integer;

   begin

   clrscr;

     Write(‘nhap n: ‘);

     readln(n);

     for i:=1 to n do

       begin

         write(‘nhap so thu ‘,i,’: ‘);

         readln(a[i]);

         while a[i]>200 do

           begin

             write(‘nhap lai so thu ‘,i,’: ‘);

             readln(a[i]);

           end;

        end;

     

     readln;

   end.

   Bình luận