File Edit
[1]
program bai_tap;
uses crt;
var A:array[1
N, i,KQ:integer;
begin
clrscr;
writeln('Nhap
readIn (N);
for i:=1 to N do
begin
write('al',i,']=');
readln(a[i]);
lend;
for i:=1to N do
write(a[i]:3);
writeln;
KQ:=0;
Search
readln;
lend.
F1 Help
100]of integer;
..
Run Compl
for i: ...
Xem thêm