Quảng cáo
1 câu trả lời 390
3 năm trước
a) Viết thủ tục nhập giá trị cho mảng A từ bàn phím
procedure nhap(var A:kmang; var n:integer);
begin
write(‘Nhap so phan tu cua mang N=’);
readln(n);
for i:=1 to n do
begin
write(‘Nhap phan tu thu A[‘,i,’]=’);
readln(A[i]);
end;
end;
b) Viết thủ tục in ra màn hình các phần tử âm trong mảng A.
procedure hienam(A:kmang;n:byte);
begin
for i := 1 to n do
if A[i] < 0 then write(A[i],’ ’);
end;
Quảng cáo
Bạn muốn hỏi bài tập?
Câu hỏi hot cùng chủ đề
Gửi báo cáo thành công!
