viết đoạn chương trình con thực hiện nhập giá trị cho mảng 1 chiều
1 câu trả lời
*Chương trình:
uses crt;
type mang=array[1..1000]of longint;
var n:longint;
a:array[1..1000]of longint;
procedure nhap(var a:mang;n:longint);
var i:longint;
begin
readln(n);
for i:=1 to n do readln(a[i]);
end;
begin
clrscr;
nhap(a,n);
readln;
end.
*Thủ tục:
procedure nhap(var a:mang;n:longint);
var i:longint;
begin
readln(n);
for i:=1 to n do readln(a[i]);
end;
