Viết chương trình sử dụng biến mảng (A) để nhập từ bàn phím các phần tử của dãy số. Độ dài của dãy (N) nhập từ bàn phím.
Viết chương trình sử dụng biến mảng (A) để nhập từ bàn phím các phần tử của dãy số. Độ dài của dãy (N) nhập từ bàn phím.
var n,i : integer ;
A:array [1…100] of integer ;
begin
write (‘nhap do dai cua day so n=’);<br /> writeln (‘nhap cac phan tu cua day so :=’);
for i:=1 to n do
begin
write ( ‘a[‘,i,’]=’) ; readln (a);
end;
readln
end.
Xin hay nhất
var
a: array[1..250] of integer;
n, i: byte;
Begin
Write(‘n = ‘); readln(n);
For i:=1 to n do
Begin
Write(‘a[‘, i, ‘] =’);
Readln(a[i]);
End;
Readln
End.