Á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ự....
2 câu trả lời
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.
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.
