M.n ơi
Có ai biết chuyển mảng 2 chiều thành mảng 1 chiều trong pascal ko ạ?
Giúp e với, e đang cần gấp
Hãy luôn nhớ cảm ơn và vote 5*
nếu câu trả lời hữu ích nhé!
uses crt;
var n,m,i,j,d: integer;
a: array[1..100,1..100] of integer;
b: array[1..200] of integer;
begin
clrscr;
write('Nhap do so hang, cot cua mang hai chieu: '); readln(n,m);
for i:=1 to n do for j:=1 to n do begin
write('Phan phan tu tai vi tri ',i,', ',j,': ');
read(a[i,j]);
end;
d:=1;
for i:=1 to n do for j:=1 to n do begin
b[d]:=a[i,j];
d:=d+1;
end;
write('Mang 2 chieu sau khi chuyen thanh mang 1 chieu: ');
for i:=1 to d-1 do write(b[i],' ');
readln
end.
Hãy giúp mọi người biết câu trả lời này thế nào?
108
42
Làm 2 vòng lặp i,j r gán 2chieu[i][j] vào 1chieu[i], độ dài mảng 1 chiều bằng i*j
Hãy giúp mọi người biết câu trả lời này thế nào?
Bảng tin