Áp dụng khai báo trực tiếp biến mảng một chiều M gồm 200 phần tử, các phần tử của mảng thuộc kiểu kí tự-

0 bình luận về “Áp dụng khai báo trực tiếp biến mảng một chiều M gồm 200 phần tử, các phần tử của mảng thuộc kiểu kí tự-”

1. Program bt;

   Var a: array [1..200] of string;

          i: integer;

   Begin

   clrscr;

   For i:=1 to 200 do

     Begin

         Write(‘ Nhap a[‘,i,’]=’);

         Readln(a[i]);

     End;

   End.

   Bình luận

2. Program Hotboy;

   Uses crt;

   Var M:array[1..200] of string;

   I:byte;

   Begin

   Clrscr;

   For i:= 1 to 200 do

   Begin

   Write(‘M[‘,i,’]’); 

   Readln(M[i]

   End;

   Readln

   End.

   Bình luận