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 1 dãy số. Độ dài của dãy cũng được nhập từ bàn phím.
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 1 dãy số. Độ dài của dãy cũng được nhập từ bàn phím.
var n,i: longint;
a: array [1..1000] of longint;
begin
write(‘Nhap n: ‘); readln(n);
for i:=1 to n do
begin
write(‘Nhap phan tu thu ‘,i); read(a[i]);
end;
readln
end.
program bt;
uses crt;
var a:array[1..1000] of integer;
i,n:integer;
begin
clrscr;
write(‘nhap do dai day so:’); readln(n);
writeln(‘nhap cac phan tu cua day:’);
for i:=1 to n do
begin
write(‘a[‘,i,’]=’); readln(a[i]);
end;
readln
end.