Nhập vào bàn phím 1 dãy gồm n số nguyên dương. Hãy kiểm tra dãy đó có vao nhiêu số chẵn , bao nhiêu số lẽ. Tính tổng dãy đó Đếm xem dãy đó có bao nhiêu số có 2 chữ số

Thy291208

2 năm trước

Loga Sinh Học lớp 12

0 lượt thích 35 xem

1 trả lời

Thích Trả lời

ngoc110252

uses crt;

var A : array [1 .. 100] of integer;

i, n, S, c, l, d, x : longint;

begin

clrscr;

write('Nhap so luong phan tu : '); readln(n);

for i := 1 to n do

begin

write('Nhap so thu ', i ,' = '); readln(A[i]);

S := S + A[i];

if A[i] mod 2 = 0 then c := c + 1 else l := l + 1;

x := A[i] div 10;

if (x >= 1) and (x <= 9) then d := d + 1;

end;

writeln('So luong so chan = ', c);

writeln('So luong so le = ', l);

writeln('Tong cac phan tu = ', s);

write('So luong so co hai chu so = ', d);

readln

end.

Vote (0) Phản hồi (0) 2 năm trước

ctvloga37

uses crt;
var a:array[1..1000] of integer;
i,n,chan,le,t,dem:integer;
begin
clrscr;
write('n= ');readln(n);
chan:=0;le:=0;t:=0;dem:=0;
for i:=1 to n do
begin
write('A[',i,']=');readln(a[i]);
if a[i] mod 2 = 0 then inc(chan) else inc(le);
t:=t+a[i];
if (10<=a[i]) and (a[i]<100) then inc(dem);
end;
writeln('Co ',chan,' so chan');
writeln('Co ',le,' so le');
writeln('Tong day so: ',t);
writeln('Co ',dem,' so co 2 chu so');
readln;
end.

Vote (0) Phản hồi (0) 2 năm trước

Các câu hỏi liên quan

Mong mn jup e giải bài này vs ạ mong mn jup e vs ( e đg cần gấp nên bài này 50 điểm nha )

Giúp em đúng không ạ! Tks! Bổ sung ( em không chắc là ổn...) .41/ It was to celebrate the first Thanksgiving in USA that the Pilgrims ate turkeys and pumpkins. 42/The country which is called’ The land of windmills is the Netherlands. 44/ >His parents didn’t grow up Tom during his formative years so he was not a well adjusted kid. 47/ The place to which they sent the children was a boarding school. 49/ Are you intending to hire somebody to repaint your house?

Theo Nguyễn Thiếp, việc học không chỉ liên quan đến bản thân mỗi người mà còn quan hệ đến cả quốc gia, xã hội. Bằng 1 đoạn văn ngắn khoảng 10 câu em hãy làm rõ biểu hiện mối quan hệ ấy. Trong đoạn văn có sử dụng câu nghi vấn.

Sử dụng chương trình con tìm số nhỏ nhất của 2 số. Viết chương trình sử dụng chương trình con trên tìm và đưa ra màn hình giá trị nhỏ nhất của mảng một chiều chứa n số nguyên nhập từ bàn phím. Giúp em với mọi người ❤️

Cho A=x/x+y + y/y+z + z/z+x.Chứng minh phân số trên ko thuộc Z

viết 5 câu về bảo vệ môi trường

Viết bài quảng cáo về 1 sản phẩm.

Câu 1: (4 điểm) Trình bày ý nghĩa lịch sử và nguyên nhân thắng lợi của cuộc kháng chiến chống Mĩ, cứu nước (1954 - 1975) ? Là thanh niên thời đại Hồ Chí Minh, em có suy nghĩ gì về thế hệ thanh niên thời chống Mĩ cứu nước? Trả lời câu hỏi số 1

2 người đi từ A đến B, vận tốc người thứ nhất là 40km/h, vận tốc người thứ 2 là 25km/h. để đi hết quãng đường AB, người thứ 1 cần ít hơn người thứ 2 là 1h30p . tính quãng đường AB?

Sử dụng chương trình con tìm số nhỏ nhất của 2 số. Viết chương trình sử dụng chương trình con trên tìm và đưa ra màn hình giá trị nhỏ nhất của các số tự nhiên trong tệp kiemtra.txt lưu trên ổ đĩa Y

Loga.vn - Cộng Đồng Luyện Thi Trực Tuyến