program bai3;
type KM=array [1..100]of LongInt ;
var a,b:KM;
i,N,t:Integer;
begin
write('nhap N =');Readln(N);
t:=0;
for i:=1 to n do
begin
Write('nhap a [',i,']=');
readln (a[i]);
if (a[i] mod 2=0) then [i]:=sqr(b[i])
else b[i]:=a[i];
end;
readln;
end.
a) Với N= 6
A= 5 6 3 4 5 8
B=?
b)Với N = 6
A= 5 7 3 1 11 15
B= ?...
Đọc tiếp
program bai3;
type KM=array [1..100]of LongInt ;
var a,b:KM;
i,N,t:Integer;
begin
write('nhap N =');Readln(N);
t:=0;
for i:=1 to n do
begin
Write('nhap a [',i,']=');
readln (a[i]);
if (a[i] mod 2=0) then [i]:=sqr(b[i])
else b[i]:=a[i];
end;
readln;
end.
a) Với N= 6
A= 5 6 3 4 5 8
B=?
b)Với N = 6
A= 5 7 3 1 11 15
B= ?
