0
0
Hãy luôn nhớ cảm ơn và vote 5*
nếu câu trả lời hữu ích nhé!
1254
1144
Đây là câu trả lời đã được xác thực
Câu trả lời được xác thực chứa thông tin chính xác và đáng tin cậy, được xác nhận hoặc trả lời bởi các chuyên gia, giáo viên hàng đầu của chúng tôi.
var a:array[1..100] of longint;
n,i,s:longint;
begin
write('Nhap n: '); readln(n);
for i:=1 to n do
begin
write('a[',i,'] = '); read(a[i]);
end;
writeln;
for i:=1 to n do s:=s+a[i];
writeln('Tong cac gia tri trong day: ',s);
for i:=1 to n do
if not a[i] mod 2=0 then
begin
write('So le nho nhat la: ',a[i],' Chi so la: ',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?
70
27
uses crt;
var a:array[1..100] of longint;
n,i,t:longint;
begin
clrscr;
write('nhap n: ');readln(n);
for i:=1 to n do
begin
write('a[',i,']: '); readln(a[i]);
end.
for i:=1 to n do t:=t+a[i];
writeln('tong cac gia tri trong day: ',t);
for i:=1 to n do
if a[i] mod 2<>0 then
begin
write(a[i]);
break;
end;
readln
end.
Ctr đã test nha bạn.
Hãy giúp mọi người biết câu trả lời này thế nào?
0
0
Da vâng mình cảm ơn ạ
Nếu n<= 150 cũng tương tự hả bn
1254
1144
n<= 150 khai báo a:array[1..150] of longint;
Bảng tin