Viết chương trình sử dụng biến mảng để nhập từ bàn phím các phân tử của một dãy số nguyên A. Độ daf của dãy M cũng được từ bàn phím với (0
Viết chương trình sử dụng biến mảng để nhập từ bàn phím các phân tử của một dãy số nguyên A. Độ daf của dãy M cũng được từ bàn phím với (0
By Rose
By Rose
program nhap_mang;
uses crt;
var A:array[1..100] of integer;
m,i:integer;
begin
clrscr;
write(‘Nhap M: ‘); readln(m);
for i:=1 to m do
begin
write(‘A[‘,i,’]= ‘); readln(A[i]);
end;
write(‘Mang A la: ‘);
for i:=1 to m do write(A[i],’ ‘);
readln;
end.
uses crt;
var a:array[1..100] of integer;
m,i:integer;
begin
clrscr;
write(‘nhap m: ‘); readln(m);
for i:=1 to m do
begin
write(‘nhap a[‘,i,’]= ‘); readln(a[i]);
end;
write(‘day mang vua nhap: ‘);
for i:=1 to m do write(a[i],’ ‘);
readln;
end.