viết chương trình trộn 2 mảng a và b vào mảng c (không cần sắp xếp)
1 câu trả lời
program tron_mang;
uses crt;
type mang=array[1..100] of integer;
var a,b,c:mang;
n,i,j:integer;
Procedure nhap(var x:mang; n:byte);
var i:integer;
begin
for i:=1 to n do
begin
write('M[',i,'] = ');readln(X[i]);
end;
end;
Procedure in_mang(x:mang; n:byte);
var i:byte;
begin
for i:=1 to n do write(x[i],' ');
end;
Begin
clrscr;
write('n = ');readln(n);
writeln('Nhap day a:');nhap(A,n);
writeln('Nhap day b:');nhap(B,n);
i:=1; j:=1;
while i<=n do
begin
C[j]:=A[i];
C[j+1]:=B[i];
j:=j+2;
i:=i+1;
end;
write('Mang sau khi tron: ');in_mang(C,2*n);
readln
End.
Câu hỏi trong lớp
Xem thêm
- Đề thi học kì 2 môn địa 9 có lời giải chi tiết
- Đề thi học kì 2 môn địa 9 có lời giải chi tiết
- Đề thi học kì 2 môn địa 9 có lời giải chi tiết
- Đề thi học kì 2 môn địa 9 có lời giải chi tiết giúp các em luyện tập và củng cố kiến thức hiệu quả
- Kiểm tra 15 phút lần 1 học kì 1 - đề số 5 Địa 9 có lời giải chi tiết
