Viết chương trình khai báo biến mảng A gồm 100 phần tử thuộc kiểu nguyên.

0 bình luận về “Viết chương trình khai báo biến mảng A gồm 100 phần tử thuộc kiểu nguyên.”

1. program Min;
   uses crt;
   var A:array[1..100] of longint;
       S,i:longint;
   begin
      clrscr;
      for i:=1 to 100 do 
      begin
         write(‘Nhap phan tu thu ‘,i,’: ‘);
         readln(A[i]);
      end;

   Bình luận

2. Program bt;

   Uses Crt;

   Var i:integer;

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

   Begin

   clrscr;

   for i :=1 to 100 do

   begin

   writeln(‘a[‘,i,’]=’);

   readln(a[i]);

   end;

   readln;

   End.

   Bình luận