Mình nghĩ là ta nên xử lý như sau:
Procedure Gen(a, b: array; var c: array);
var i: longint;
begin
for i:=1 to n do begin
if (i mod 2 = 0) then c[i]:=b[i] else c[i]:=a[i];
...
Type: Posts; User: sythanh14; Keyword(s):
Mình nghĩ là ta nên xử lý như sau:
Procedure Gen(a, b: array; var c: array);
var i: longint;
begin
for i:=1 to n do begin
if (i mod 2 = 0) then c[i]:=b[i] else c[i]:=a[i];
...