Tìm hiểu ,viết ra giấy chương trình sử dụng biến mảng để nhập từ bàn phím giá trị các phần tử của 1 dãy số có 5 phần tử Giúp mình với.Mình cám ơn
2 câu trả lời
var i:byte;
a:array[1..5] of integer;
begin
for i:=1 to 5
begin
write('Nhập phần tử thứ ',i,' : ); readln(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.