0
0
Hãy luôn nhớ cảm ơn và vote 5*
nếu câu trả lời hữu ích nhé!
program phuongt;
uses crt;
var A: array[1..500] of integer;
i, n: intger;
begin
clrscr;
write('Nhap n = '); readln(n);
for i:=1 to n do
begin
write('A[', i,'] = '); readln(A[i]);
end;
write('So chan dau tien trong mang la: ');
for i:=1 to n do
if A[i] mod 2 = 0 then
begin
write(A[i]);
break;
end;
writeln();
write('So le dau tien trong mang la: ');
for i:=1 to n do
if A[i] mod 2 = 1 then
begin
write(A[i]);
break;
end;
readln
end.
Hãy giúp mọi người biết câu trả lời này thế nào?
156
69
uses crt;
var a:array[1..10001] of longint;
n,i,chan,le:longint;
begin
clrscr;
readln(n);
for i:=1 to n do begin writeln('a[',i,']=');readln(a[i]);end;
for i:=n downto 1 do if a[i] mod 2=0 then chan:=a[i] else le:=a[i];
writeln('so chan dau tien= ',chan);
write('so le dau tien= ',le);
readln;
end.
Hãy giúp mọi người biết câu trả lời này thế nào?
Bảng tin
156
2121
69
hơi dài bạn ạ
4766
86455
7915
tại mình tách xuống nhìn cho dễ thôi nó cũng chẳng dài đâu ạ .-.