Hãy nhập câu hỏi của bạn vào đây, nếu là tài khoản VIP, bạn sẽ được ưu tiên trả lời.
uses crt;
var a:array[1..100]of integer;
i,n,dem,max,t,min,dem1:integer;
begin
clrscr;
write('n='); readln(n);
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
dem:=0;
max:=-32000;
for i:=1 to n do
begin
if a[i] mod 2=0 then
begin
dem:=dem+1;
if max<a[i] then max:=a[i];
end;
if dem=0 then writeln('Trong day khong co so chan')
else begin
writeln('So so chan la: ',dem);
writeln('So chan lon nhat la: ',max);
end;
t:=0;
for i:=1 to n do
if i mod 2=1 then t:=t+a[i];
writeln('Tong cac so o vi tri le la: ',t);
min:=maxint;
dem1:=0;
for i:=1 to n do
if a[i] mod 2<>0 then
begin
inc(dem1);
if min>a[i] then min:=a[i];
end;
if dem1=0 then writeln('Trong day khong co so le')
else writeln('So le nho nhat la: ',min);
readln;
end.
Câu 1:
uses crt;
var a:array[1..200]of integer;
i,n,t:integer;
begin
clrscr;
write('Nhap n='); readln(n);
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
t:=0;
for i:=1 to n do
if a[i] mod 2=0 then t:=t+a[i];
writeln(t);
readln;
end.
uses crt;
var a:array[1..100]of integer;
i,t,t1:integer;
begin
clrscr;
for i:=1 to 10 do
begin
write('A[',i,']='); readln(a[i]);
end;
t:=0;
for i:=1 to 10 do
if a[i] mod 2<>0 then
begin
write(a[i]:4);
t:=t+a[i];
end;
writeln;
writeln('Tong cac so le la: ',t);
t1:=0;
for i:=1 to 10 do
t1:=t1+a[i];
writeln('Tong cac phan tu cua mang la: ',t1);
readln;
end.
program bt;
uses crt;
var i, s, sa, sd, sc, sl, da, dd, dc, dl : integer;
a : array[1..50] of integer;
begin
clrscr;
for i:=1 to 10 do begin
write('Nhap phan tu thu ',i,': '); readln(a[i]);
end;
write('Day so vua nhap la: ');
for i:=1 to 10 do write(a[i],', ');
writeln;
s := 0; sa := 0; sd := 0; sc := 0; sl := 0; da := 0; dd := 0; dc := 0; dl := 0;
for i:=1 to 10 do begin
s := s + a[i];
if (a[i] > 0) then begin sd := sd + a[i]; dd := dd + 1 end;
if (a[i] < 0) then begin sa := sa + a[i]; da := da + 1 end;
if (a[i] mod 2 = 0) then begin sc := sc + a[i]; dc := dc + 1; end
else begin sl := sl + a[i]; dl := dl + 1 end;
end;
writeln('Tong cac phan tu trong mang la ',s);
writeln('Trung binh cong cac phan tu trong mang la ',s/10);
writeln('Tong cac so am la ',sa);
writeln('Tong cac so duong la ',sd);
writeln('Tong cac so chan la ',sc);
writeln('Tong cac so le la ',sl);
writeln('So cac so am la ', da);
writeln('So cac so duong la ', dd);
writeln('So cac so chan la ', dc);
writeln('So cac so le la ', dl);
readln
end.
Program HOC24;
var a: array[1..50] of integer;
i,n: byte;
t: longint;
begin
write('Nhap N: '); readln(n);
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
write('Cac phan tu chan trong mang la: ');
for i:=1 to n do
if a[i] mod 2=0 then
begin
write(a[i],' ');
t:=t+a[i];
end;
writeln;
write('Tong cac phan tu chan trong day la: ',t);
readln
end.
Program HOC24;
var i,n: byte;
t: longint:
a: array[1..50] of integer;
begin
write('Nhap n: '); readln(n);
for i:=1 to n do begin write('A[',i,']='); readln(a[i]); end;
t:=0;
write('Cac phan tu chan co trong mang la: ');
for i:=1 to n do
if a[i] mod 2=0 then
begin
write(a[i],' ');
t:=t+a[i];
end;
writeln;
write('Tong cac phan tu chan do la: ',t);
readln
end.
Bài 1:
uses crt;
var a:array[1..100]of integer;
i,n:integer;
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
if a[i] mod 2<>0 then write(a[i]:4);
readln;
end.
Bài 2:
uses crt;
var a:array[1..100]of integer;
i,n:integer;
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
if a[i] mod 2=0 then write(a[i]:4);
readln;
end.
uses crt;
var a:array[1..100]of integer;
i,n,t,t1,j,tam:integer;
begin
clrscr;
readln(n);
for i:=1 to n do readln(a[i]);
t:=0;
for i:=1 to n do t:=t+a[i];
t1:=0;
for i:=1 to n do
if a[i] mod 2=0 then t1:=t1+a[i];
for i:=1 to n-1 do
for j:=i+1 to n do
if a[i]<a[j] then
begin
tam:=a[i];
a[i]:=a[j];
a[j]:=tam;
end;
writeln(t);
writeln(t1);
for i:=1 to n do write(a[i]:4);
readln;
end.
program b1;
uses crt;
var i: integer; a:array[1..100] of integer; s:longint;
begin
clrscr;
for i:=1 to 10 do
begin
write('a[',i,']='); readln(a[i]);
end;
writeln('cac phan tu chan la:');
s:=0;
for i:=1 to 10 do if a[i] mod 2=0 then writeln(a[i],' ');
write('Tong cac phan tu le la:');
for i:=1 to 10 do if a[i] mod 2<>0 then s:=s+a[i]; write(s);
readln;
end.
Tham khảo!
Chúng ta vẫn thường được bố mẹ và thầy cô nhắc nhở rằng nên giữ thói quen tiết kiệm, tránh lãng phí nhưng dường như không phải ai cũng lắng nghe điều đó. Ấy là bởi nhiều người vẫn chưa hiểu được ý nghĩ của việc thực hành tốt lối sống tiết kiệm. Nếu bạn biết rằng việc tiết kiệm mang đến cho chúng ta những lợi ích như thế nào thì chắc chắn bạn sẽ thay đổi hành vi của mình.
Tiết kiệm có nghĩa là không lãng phí nguồn của cải, vật liệu,… cả của riêng lẫn của chung. Tiết kiệm không có nghĩa là cất giữ hay giấu kín đi mà là làm cho nguồn của cải ấy sinh sôi thêm. Đất nước ta vẫn được biết đến với nguồn tài nguyên thiên nhiên vô cùng dồi dào. Chúng ta có rừng vàng, biển bạc thế nhưng bạn nghĩ nếu một ngày nào đó chúng ta chặt phá hết rừng, khai thác hết biển thì nguồn tài nguyên của chúng ta sẽ chẳng mấy mà cạn kiệt. Hãy thử tưởng tượng nếu một ngày rừng không còn cây xanh thì đã bị đốn lấy gỗ hết thì bao nhiêu thiên tai sẽ xảy ra. Nào là xói mòn, rửa trôi, mạch nước ngầm sẽ không được bảo vệ. Nếu nước lũ về, người dân sẽ không kịp trở tay bởi sẽ chẳng có cánh rừng nào giúp cản nước lại cả. Như thế chẳng phải rất nguy hiểm hay sao? Đất nước Việt Nam chúng ta vốn dĩ là một nước nông nghiệp lạc hậu. Bao nhiêu năm qua, chúng ta đã cố gắng vươn lên để trở thành một nước công nghiệp nhưng cái gốc nông nghiệp vẫn không thể nào từ bỏ. Trong khi đó, chiến tranh đã tàn phá của chúng ta biết bao nhiêu của cải. Thiệt hại do chiến tranh mang lại kể đến bây giờ vẫn chưa hết. Nếu chúng ta không tiết kiệm thì làm sao đất nước ta có thể phát triển được? Nhiều người cho rằng chỉ cần tiết kiệm cái của riêng mình còn cái chung thì không cần. Chẳng hạn như điện. Chúng ta vẫn thường dùng điện một cách rất lãng phí chẳng hạn như bật bóng điện không cần thiết. Không tắt thiết bị điện khi không dùng nữa. Lý do bởi nhiều người cho rằng không tiết kiệm điện thì chẳng ảnh hưởng đến ai cả. Mình dùng nhiều thì mình trả nhiều tiền. Tiền của mình nên cũng chẳng cần mọi người nhắc mình tiết kiệm. Trên thực tế, nguồn điện là của chung và nó cũng có thể bị cạn kiệt đi nếu như chúng ta không biết tiết kiệm. Nếu như hạn hán kéo dài, nguồn nước dùng cho thủy điện không có thì lúc ấy bạn sẽ đổ lỗi do đâu? Còn nhớ có những năm giữa trời mùa hè oi bức nhưng người dân cả nước phải sống trong cảnh mất điện luân phiên. Nguyên nhân sâu xa chính là do chúng ta đã không chịu tiết kiệm điện trước đó. Khoan vội nói nhiều đến những thứ xa xôi. Hãy lấy ngay ví dụ trong gia đình mình. Bố mẹ chúng ta hàng ngày đi làm vất vả để kiếm được một chút tiền, lo cho chúng ta từng bữa ăn, giấc ngủ. Tiền của bố mẹ làm ra đổi bằng mồ hôi, nước mắt. Vì vậy, chúng ta không nên đua đòi để bắt bố mẹ phải mua cho chúng ta thứ nọ, thứ kia. Như vậy là không ngoan. Trách nhiệm của chúng ta bây giờ là phải học tập cho thật tốt. Bố mẹ cũng là những người bỏ tiền ra cho chúng ta theo học để lấy kiến thức. Nếu chúng ta không học mà chỉ mải chơi thì đó cũng là một sự lãng phí to lớn. Không chỉ là lãng phí tiền bạc của bố mẹ mà còn lãng phí cả tuổi trẻ của mình nữa. Nếu chúng ta biết tiết kiệm cho ngày hôm nay, nguồn tài nguyên của chúng ta sẽ còn mãi cả mai sau. Nếu chúng ta biết tiết kiệm thời gian, tiết kiệm của cải của mình từ hôm nay thì trong tương lai chúng ta sẽ trở thành những người giàu có. Vậy thì chẳng có lý do gì để chúng ta không thực hành tiết kiệm ngay từ bây giờ.program bai1;
var a:array[1..5] of longint;
i,z,q,n:longint;
begin
repeat
write('N= ');
readln(n);
end;
for i:=1 to n do
begin
write('a[',i,']= ');
readln(a[i]);
end;
s1:=0;s2:=0;
for i:=1 to n do
if a[i] mod 2=0 then s1:=s1+a[i]
else s2:=s2+a[i];
write(S1= ',s1,....);
readln
end.