viết đoạn chương trình con thực hiện nhập giá trị cho mảng 1 chiều
2 câu trả lời
uses crt;
var a:array[1..100] of integer;
i,n:byte;
function C(n:byte):integer;
begin
write('nhap n: ');readln(n);
for i:=1 to n do
begin
write('gia tri',i,': ');readln(a[i]);
end;
end;
begin
clrscr;
C(n);
readln;
end.
- Đoạn chương trình con :
for i := 1 to n do
begin
write('nhap phan tu thu ', i ,' : ');
readln(a[i]);
end;
